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GENERAL 



This product specification wilt describe the basic components and 
operators of the 818C0/B170C SDL S-Language# including its STACK 
MECHANISM* DATA DESCRIPTORS* and CODE and DATA ADDRESSES. After a 
preliminary discussion of the structure anc operation of the 
S-Machine» its operators will be explained in detail. 
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COMPONENTS OF THE S-MACHINE 



The SCL S-Machine is composed of the following basic elements: 
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Run stucture nucleus 



the YZ? ano SOL 
of the S-machine* 



This contains information used by 
interpreter to implement an instance 
i.e. a running SDL program. 

Code segments and segment dictionaries 

Cede Segments are virtual as in the other machines* but 
the Code Segment Dictionary is itself ^ segmented* 
corresponding to the page-segment concept in the SDL 
language. Each entry in a Master Segment Dictionary 
represents a page of segments in the source program and 
points to a sub-dictionary with the entries for those 
segments. The Master Segment Dictionary^ is 
non-overlayable; the sub-oictionaries may be cverlaic. 

File information blocks (FI8»s) and FI3 cicticnary 

These appear in (virtual) memory* one FIB per open file in 
use by the running program* used by the system for 
input/output operations. 



5. Registers 
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See the MCP Reference Manual for a more general discussion 
of code files* run structures* file information blccks* 
and the various dictionaries. These concepts are ccrrmon 
to all the 81800/B170C S-machines. Note that SDL does not 
irake use of data segments and data segment cicticnary* 
implementing virtual data via an SDL intrinsic instead. 
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THE BASE-LIMIT AREA 



The space is divided as shown in the diagram below* with the arrows 
indicating the direction of growth. 



*** ******* ****************************** ****************** ****** 

* *** * D M * 

* *** * Y E * 
*VALUE NAME *D I SPL A Y*CON TR OL *E VAL UA T I C fk PFOGFAM* N M * 
♦STACK STACK*STACK *STACK *STACK STACK* A * 

* --> <-- * --> * --> * --> <-- * H R * 

* *** *IY * 

* * * * * c * 
***************************************************** *********** 

* * 

* * 
*** BASE. REGISTER LIMIT REGISTEF*** 

FIGURE 1.1 SDL STACKS 



VALUE STACK 



Entries are values of cata items* 
ar titrcry in length* the 
chcr act eristics of which are kept in 
descriptors in the NAME aro EVALUATION 
s t ac ks. 



NAME STACK 



Entries are DATA DESCRIPTORS* 48 bits 
in length* one descriptor for every 
data identifier which is currently 
active (not necessarily atidressaol'e) in 
the program. The descriptor fcr an 
array is 96 bits long* cccupyinc two 

NAME STACK entries. 



DISPLAY 



The NAME STACK is divicec irtc stack 
frames* each frame containing the 
descriptors for the names Ceclarec in 
one invocation of a procedure. Not all 
of these stack frames contain 
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descriptors which are currently 
accessible- The display contains 
pointers into the NAME STACK* one 
pointer for each Lexic Level less than 
or equal to the current Lexic Level. 
Each pointer locates the base of the 
frame for currently acdressable names 
at that level. These entries are 32 
bits long. For further discussicn of 
the display mechanisiF* the reader 
should consult literature on the 
implementation of ALGOL 60. 
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*************************************************************** 

* * * * * 

* NAME STACK POINTER * EXITED * ENTERED * VALUE STACK POINTER * 

* * LL * LL * * 

* * * * * 

*************************************************************** 
20 BITS 4 BITS 4 BITS 20 BITS 

FIGURE 1.2 CONTROL STACK ENTRY FORMAT 
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PROGRAM POINTER STACK 



With the exception of the cycle 
operator used for lecping* alt 
transfers of control in the SCL machine 
are cone via call-type operators. The 
next instruction pointer is saved for 
subsequent return by pushing it onto 
the PROGRAM POINTER STACK. The format 
of an entry in this stack -is: 



********************************************* 

* * * * 

* SEGMENT * PAGE * , DISPLACEMENT * 

* * * * 
********************************************* 

6 BITS A BITS 22 BITS 



FIGURE 1.3 PROGRAM POINTER STACK ENTRY FORMAT 
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DATA DESCRIPTORS 



Simple (scalar) descriptors are 43 bits in length* with the 
following f c r ir a t : 



*********************************** * * ****************** 

* * * * 

* TYPE * LENGTH * ADDRESS * 

* * * * 
******************************************************* 

8 BITS 16 BITS 24 BITS 

FIGURE 1.4 SIHPLE DESCRIPTOR FORMAT 



The address is specified as a bit offset from the base register 
(which is also the base of the VALUE STACK). The length is 
expressed in bits* regardless of the type. 

One of the tits in the type field indicates whether or ret this is 
an ARRAY DESCRIPTOR, when this bit is cn» an additional 48 bits of 
information is appended giving the following formats 



******************************************************* 

* * * * 

* TYPE * LENGTH OF * ACDRESS CF * 

* * ENTRY * ARRAY * 

* * * * 
******************************************************* 

* * * * 

* PAGE * LENGTH BETWEEN * NUMBER OF * 
*SUBSCRIPT* ENTRIES * ENTRIES * 

* SI2E * * * 

* * * * 
******************************************************* 

8 BITS 16 BITS 24 BITS 

FIGURE 1.5 ARRAY DESCRIPTOR FORMAT 



The Page Subscript Size is only used when the PAGED ARRAY bit is on 
in the type field. It specifies the nuitber of bits to shift an 
Array Subscript to obtain the ccrr e spondi ng Page Subscript (Page 
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sizes are always a power of two in SDL). 



The length between entries is the difference between the address of 
one element and the address of the previous element* This must be 
greater thar cr ecual to the length of one entry. 



The Type Field of a descriptor has a single 
some bits are not meaningful in all contexts. 



format* even though 
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********************************* 
* * * * * * * * * 
*0*1*2*3*A*5*6*7* 
********* 
********************************* 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* ■ 

* 

* 

* 

* 

* 

* 



* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* ** 



* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



* 

* ' 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*** 



* * * * 

* * * * 
***** * 

* * 

* * 

* * ** 
* 
* 

*** data type s 



**** l => length VARYING**) 



1 => PAGED array (bit 2 must 
also be on ) 



00 => BIT 

01 => FIXED 

10 => CHARACTER 

11 => type VARYING** ) 

> contiguous array i.e.* length between 
elements = length of one element, (bit 
2 must also be on.) 



*** i => array 

1 => non-self-relative 
=> self -relative 



(rust be on if bit 2 is on) 



*** name-value bit 



1 => value 

C => name 

(used only when the descriptor 
is on the EVALUATION STACK) 



(*) Only used in the type field of in-line 
descriptors which are arguments of a CCFC 
operator and in the argument to a RTNC operator. 
The COFC operator also uses BIT 6 in a differert 
way; it indicates a varying array bounc In-lire 
descriptors for other operators use BIT to 
indicate the presence of a filler fielo. See 
IN-LINE DESCRIPTOR FORMAT. 



FIGURE I.& DESCRIPTOR TYPE FIELD FORMAT 



1-10 
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Khen the data itself is 24 bits or less in tergth* it way be 
contained directly in the address portion of the descriptor* thus 
requiring less storage. In this case* the descriptor is saic tc be 
self- relative and the non-self-relati.ve bit is off. 



The use of the NAME-VALUE BIT is to distinguish* in the EVALUATION 
STACK* between descriptors which had an associated value Icaced on 
the VALUE STACK when they were pushed en the EVALUATION STACK* and 
those which did net. The purpose is to signal that a 
should be cut back from the VALLE STACK whenever this 
is cut back from the EVALUATION STACK. The bit can only 
rcn-self-relative descriptors. 



dat a it em 
desc ri ptor 
be set in 



1-11 
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PAGED ARRAY DESCRIPTORS 



When the PAGED bit is on in 
cf the descriptor does not 
is initialized to zero. An 
detect the first access to 
memory manager to build a 



an array descriptor* 

point rfirfictlv to the array* but 



the acdress 
directly to 

arra 

the array 
page table in dynamic memory 



field 
rather 



,y load operator CALA* AL ) will then 
array ard invoke the SDL virtual 



J n be non-ov rlayable ana the descriptor address f 
set to the page table address- T,he table contains or 
array page* each with the format below: 



This table 
field will be, 
e entry per 



* * ** 



*************** 



************* 



ADDRESS 



* STATUS * 

* * 
******************************** 

4 BITS 24 BITS 



*************** 

* 
* 
* 

*************** 



FIGURE 1*7 PAGE TABLE ENTRY FORMAT 
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STATUS FIELD 



bit presence bit 

bi t 1 to be read on ly 

bit 2 read only 

bi t 3 unused 



1 => address is base relative n*emory 
address 

=> address is disk address 

1 => the next tiire this page is 

rolled out* turr this bit cff 
and bit 2 on. 

1 => this page may be overlaid 

without rolling it out to disk. 



Ar address field of zero indicates that this is a previously 
unaccessed page and may be createc without neec for a rcllin. 
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DATA ADDRESSES 

The S-Language addresses data via descriptors on the MHE STACK. At 
any point in an SDL program every accessible data ite« *ay be 
de cr bed by the Lexicographic Level at which it «" "^ r " ^ 
its crdiral location (occurrence number) within the declaration 
section, at that level- A data addres s . _ t hen . consists he 
numbers which uniquely locate a descriptor in the *AV£ STACK. 
Addressing is dene by using the DISPLAY to cca e e NAME STACK 
frarce corresponding to the required Lexic Level. ana the 
rence nt.ber to locate the cescriptor w 1th r t ha t fraje. For 
compactness, data addresses have a type fielo which incicates the 
sizes of the ether fields, as indicatea below: 



TYPE 



************************************************** 
* * * 

*TYPE * LEXIC LEVEL * OCCURRENCE NUMBER 
* * * * 

************************************************** 
2 BITS 1/4 BITS 5/10 BITS 

FIGURE 1.6 DATA ADDRESS FCRHAT 
LEXIC LEVEL BITS OCCURRENCE NUMBER BITS TOTAL BITS 



00 
01 
10 
11 



1C 

5 

1C 

5 



16 
11 
13 

8 



hen only one bit is used for Lexic Level. means 
nd 1 is taken to mean the current Lexic Level. wh 



a 
be. 



ns Lexic Level 
atever it may 
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CODE ADDRESSES 



Cede addresses appear as arguments of operators which effect 
transfers of control. They are di video into three parts: the cage 
ruanber which selects the segment dictionary page* the segment 
number which selects the segment dictionary entry within that 
page* and the displacement which specifies a tj i t offset within the 
segment. For compactness* these numbers are e^ncoced ir different 
fiela sizes depending on a type field. 



***************** **************************4************** 

* * * * * 

* TYPE * SEGMENT * PAGE * DISPLACEMENT * 

* * * * * 
************************************ ********|************** 

3 8ITS 0/6 9ITS 0/4 BITS 12/M/20 BITS 



FIGURE 1.9 CCOE ADDRESS FORMAT 



TYPE SEGMENT 8ITS PAGE BITS 



DISPLACEMENT BITS 



TCTAL BITS 



000 CURRENT CURRENT 

001 CURRENT CURRENT 
CIO 6 CURRENT 
Oil 6 CURRENT 

100 6 • * 

101 6 i* 

110 6 A 

111 NULL ADDRESS 



12 
16 
12 
16 
12 
16 
20 



15 
19 
21 
25 
25 
29 
33 



The Null Address (Type 111) is only used by tfrje CASE operator and 
the length of the other fields is the same as the length of those 
fields in the other arguments to the case. The! other fields are 
not used and are all zero. 
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CONTROL STACK MECHANISM 



* * * * 

* * * * 

* * * * 

* * * * 

* * * * 

* * * * 

* * * * 

* * * * 

* 20 Bits * 4 * A * 20 Bits 

* * - * - * 1- 

* NAME STACK POINTER* * * VALUE STACK POINlE 
************************************************ 

* * 

* * 

EXITED LEXIC LEVEL*** ***ENTEREO LEXIC LEV#L 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

R* 
* * 



CON 
STA 



TRCL 
CK 



< * 



CONTROL 

STACK 

PCINTEF 



CURRENT CONTROL REGISTER 



20 Bits « Bits 4 Bits 20 Bits 

****************************************************************** 

* * * * * 

* CURRENT NAME STACK PTR* * * CURRENt VALUE STACK PTR * 

* * * * * 
****************************************************************** 

* * 

* **FILLER 
CURRENT LEXIC LEVEL**** 
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The following SOL declaration is used by algorithms shown uncer the 
operators which affect the CONTROL STACK* 

DECLARE 

01 CONTROL. STACK (CS.SIZE) B1TC48>» 

02 CS.NSP 8ITC2C), 

02 CS. EXITED. LL 8ITC4), 

02 CS. ENTERED. LL 0IT(4>, 

02 CS.VSP BITC20), 



01 CURRENT. CONTROL 
C2 CURRENT.NSP 
02 CURRENT. LL 
02 FILLER 
02 CURRENT. VSP 



B I T ( 4 8 > * 

8ITC20)* 

BITC4)* 

BITC4), 

BITC2C)* 



(csp^tcsp) fixed; 



csp:=o; 
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The SDL operators that use the CONTROL STACK irechanisff are: 



MKS - HARK STACK 

CDFM - CONSTRUCT DESCRIPTOR* FORMAL 

CCFC - CONSTRUCT DESCRIPTOR, FORMAL CHECK 

MKU - MARK STACK AND UPDATE 

EXIT - EXIT 

RTRN - RETURN 

RTNC - RETURN FORMAL CHECK 

XTEI - EXIT* ENA3LE INTERRUPTS 
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IN-LINE DESCRIPTOR FORMATS 

FOR CONSTRUCT DESCRIPTOR OPERATORS 

SIMPLE DESCRIPTOR 



8 BITS 6/17 91 TS 6/17 BITS 
***************************************** 

* TYPE * LENGTH * FILLER * 
******************** ****************** *** 

* 
*** OPTIONAL 



Net es : 



1* The filter option is present only when bit of the 
type field is on (=1). 

2- Bit 2 of the type field is off C=C). 



ARRAY DESCRIPTOR 



8 8ITS 6/17 BITS 6/17 BITS 

*********************************************** 

* TYPE * LENGTH OF ENTRY * FILLER * 
*********************************************** 

* 

OPTIONAL 

* 
********************************* 



6/17 BITS 



6 BITS 



6/17 BITS 



*********************************************** 



* LENGTH BETWEEN 



* NUMBER OF ENTRIES * 



*********************************************** 

* 
* 

*** For paged arrays* this is the 
number of bits of the subscript 
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neeced to obtain the page 
subscript (See AL: Array Load). 



Notes: 



1. 

2. 

3, 
4. 

5. 

6. 



The filler option is present only when bit of the 
type field i s on (=1 ) • 

The length between option is present only when bit 
three of the type field is off (=0). 

8i t two of the type field is on (=1). 

The page subscript size field is present only when 
bit six of the type field is on. 

If bit six of the type field is cn# then bits zero 
and three will be off* 

The fields marked **6/lf 8ITS W are encocec as fcllcws: 
First Bit Meaning 



5 bits follow 
16 bits follow 
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USE OF THE EVALUATION STACK 



Many cf the SDL S-ops take operands from or leave results on the 
EVALUATION STACK. In fact* only the descriptor of the cperarti is 
en the EVALUATION STACK itself while the data* that is* the value 
cf the operand* may be in the descriptor or elsewhere ir the 
base-limit area. Conceptually* hewever* it is an operand with 
which the S-cp is dealing. There are two classes of cperancs or 
results which may fce on the EVALUATION STACK: 

Address operands: 

The descriptor is a pointer to the value of a declared 
data itenr.. The descriptor on the EVALUATICN STACK is 
no n- self-relative and its name-value bit is cff. This 
type of operand is appropriate for use as the cestiration 
cf an S-cp which moves data. 

Va lue operands : 

There are two classes of value operancs. 

Sel f-relat i ve: 

The descriptor en the EVALUATION STACK is marked 
self-relative and its name-value bit is cff. 
Instead of the eddress field cf the descriptor 
being a pointer to the data* the data itself is 
contained in the address field of the descriptor. 

Non-self-relative: 

The descriptor en the EVALUATIGf^ STACK is irarked 
non-sel f-r el at i ve and its name-value bit is on. 
The data is on top of the VALUE STACK* located by 
the address field in the descriptor. When this 
type of operand is removed from the EVALUATION 
STACK* its value is removed from the VALUE STACK 
as well. 



Value operands are temporary values as opposed to actual 
variables of the program. 
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that 



A particular S-op often requires 
particular class. It does not make sense, 
destination operand of a STOD (store 

usTaUy- cor C c"rnin P g S tvpe o^ngth. Unless specifically 

these restrictions are not checked oy the interpreter but, if 

met, the results of the operation are undefinec 



its oper arcs be of a 

for example, for the 

destructive) to be a value 

restrictions on their operands, 



indicated, 
not 
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INSTRUCTION SET 



Op codes are four* six* ten or thirteen, bits in length- The lengths 
have been assigned according to static frequency of the S-cp* thus 
compacting code space as much as possible. 



RELATIONAL CPERATORS 



NAME 

ECUAL TO 

LESS THAN 

LESS THAN OR EQUAL TO 

GREATER THAN 

GREATER THAN OR EQUAL TO 

NOT EQUAL TO. 



MNEMONIC 


CP 


CCOE 


ARGUMENTS 


EQL 


1010 


1 






LSS 


ill I 


01 


1010 




LEQ 


1111 


00 


1110 




GTR 


1111 


OC 


1001 




GEC 


1111 


oc 


1101 




NEO 


1010 


1C 







ARITHMETIC CPERATORS 



NAME 

ADD 

SUBTRACT 

MULTIPLY 

DIVIDE 

MODULO 

REVERSE SUBTRACT 



MNEMONIC 


ADD 


SUB 


MUL 


DIV 


MOD 


RSUB 



CP CCDE 

1011 01 

1011 10 

1111 OC 0101 

1111 OC 0110 

1111 00 0111 

1111 1C 1100 
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REVERSE DIVIDE ROIV 

REVERSE MCDULC RMOO 

NEGATE NEG 

CONVERT TO DECIMAL DEC 

CCNVEPT TO BINARY BIN 

EXTENCED ARITHMETIC OPERATORS 
NAME 

EXTENCED ADD 

EXTENCED SUBTRACT 

EXTENCED MULTIPLY 

EXTENDED DIVIDE 

EXTENCED MODULO 



MNEHGNI 


C 


XADD 




>SL6 




XMLL 




XDIV 




XMOD 
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1111 10 1101 

1111 10 1110 

1111 1 0111 

mi ic iooo 

mi ic looi 



CP CCDE 
1111 11 1100 Oil 

mi ii noo ico 

mi u noo ioi 

mi n noo no 

1111 11 noo in 



ARGUMENTS 



LOGICAL OPERATORS 

NAME 

AND 

OR 

EXCLUSIVE-OR 

NOT 



MNEMONIC 

AND 
OR 

EXCR 
NOT 



OP CCDE 
1111 OC 0001 

mi oc oooo 
mi oc ooio 
mi oo ion 
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STRING OPERATORS 



NAME 

CONCATENATE 
SUBSTRING ONE 
SUBSTRING TKQ 
SUBSTRING THREE 



MNEMONIC 

CAT 
SSI 
SS2 

SS3 



OP CODE 

1100 11 

1111 11 0100 

1111 OC 1C00 

1010 00 



T,V>G#L 

T,V 

T#V 



STORE OPERATORS 



NAME MNEMONIC 

STORE DESTRUCTIVE STCD 

STORE NON-DESTRUCTIVE LEFT SNDL 

STORE NON-DESTRUCTIVE RIGHT SNDR 



CP CODE 
0010 

1010 11 

1111 OC 0100 



ARGUMENTS 



CONSTRUCT DESCRIPTOR OPERATORS 



NAME MNEMCNIC 



CONSTRUCT DES. FROM PREV. 



CONSTRUCT DES. BASE ZERO CDBZ 

CONSTRUCT DES. LOCAL DATA CDLD 

CONSTRUCT OES. FORMAL CDFM 

CONSTRUCT DES, FORMAL CHECK CDFC 



COPR 



OP CODE 

1111 10 0100 

1110 OC 

1111 01 0001 



ARGUMENTS 



DESCRIPTOR 

N# 0ES#1,...> 
OES#r 

Up E 



1111 11 1101 000 LL*E*DES#1*..., 

D£S#r 



1110 1C 



N * DES#l>..-> 
C£S#N 
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CONSTRUCT DES. FROM PREV. 
& ACQ 



CONSTRUCT DES, FROM PREV. 
* MULTIPLY 



CONSTRUCT DES. REMAPS 
CONSTRUCT DES. DYNAMIC 



CDAD 



CD^P 



CCNSTPUCT DES. LEXIC LEVEL CDLL 



CDPM 
CODY 



1110 01 



1111 1C 0101 



1111 1C 0011 



N> DES#l>...r 
OES#n 



N>DES#l*... p 
CES#r 

TYPE-LL-OC* 
DESCRIPTOR 



1111 00 1111 DESCRIPTOR 
1111 11 1110 000 TYPE 
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LGAD OPERATORS 



NAME 

MAKE DESCRIPTOR 

VALUE DESCRIPTOR 

DESCRIPTOR 

NEXT CR PREVIOUS ITEM 

LOAD 

LOAD ADDRESS 

LOAD ARRAY FIELD ADOR 

LOAD FIELD AODRESS 



LOAD FIELD AODRESS 
FROM PREVIOUS 



ARRAY LOAD VALUE 

ARRAY LOAD AODRESS 

INDEXED LOAD VALUE 

INDEXED LOAD ADDRESS 

INDEXED LOAD FIELD 
ADDRESS 



MNENCNIC 

MDSC 

VDSC 

DESC 

NPIT 

L 

LA 

LAFA 

LFA 



LFAP 

AL 
ALA 
IL 
ILA 

I LFA 



OP CODE 

1111 10 1010 

1111 01 1CCC 

HOC 10 

1111 01 11C1 

1101 00 
OOGC 

mi u mi on 

1111 11 1111 001 



ARGUMENTS 



1111 11 1111 010 

1111 01 1100 

11C1 01 

1111 01 0000 
00C1 

mi ii mi ooo 



TYPE-LL-OC 

V* TYPE-LL-OC 

TYPE-LL-OC 

TYPE-LL-OC 

TYPE* LENGTH 

TYPE* OFFSET* 

LENGTh* 

TYPE-LL-OC 

TYPE* OFFSET* 
LENGTH 

TYPE-LL-OC 

TYPE-LL-OC 

TYPE-LL-OC 

TYPE-LL-OC 

TYPE* OFFSET* 
LENGTH 
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LOAD LITERAL 

LOAD NUMERIC LITERAL 
LCAC NUMERIC ZERO 
LOAD NUMERIC ONE 
REFER 



LIT 010C 

LITN 0011 

ZOT 0101 

ONE one 

REFR 1111 11 1111 100 



TYPE* LENGTH* 
LITERAL 

LITERAL 
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NAME 



MNEMONIC 



OP CCDE 



ARGUMENTS 



BUMP VALUE STACK POINTER BVSP 

DUPLICATE DUP 

DELETE DEL 

EXCHANGE XCH 

FORCE VALUE STACK FVS 

PROCEDURE OPERATORS 



1111 10 1011 

1100 00 

1111 OC 0011 

1011 OC 

1100 01 



NAME 

CALL 

IF THEN 

IF THEN ELSE 

CASE 



MNEMONIC 
CALL 
IFTH 
IFEL 
CASE 



OP CCDE 
0111 
IOC I 
1101 1C 

mi oi oioo 



ARGUMENTS 



TYPE-SEG- 
FAGE-CISP 

TYPE-SEG- 
PAGE-CISP 

ADDR TYPE*TYPE- 
SEG-PAGE-OISP 

# CF ADDR, ADDR 
TYPE* TYPE-SEG- 

PAGE-DISP*..., 
TYPE-SEG-PAGE- 
CISP 



UNDO 



UNDO 



1000 



# OF LEVELS 
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U.NDC CONDITIONALLY 

RETURN 

RETURN FORMAL CHECK 

EXIT 
CYCLE 

MARK STACK 

MARK STACK AND UPDATE 
ENABLE-DISABLE INTERRUPTS 
EXIT-ENABLE INTERRUPTS 
CO-ROUTINE ENTRY 
CO-FOUTINE EXIT 

SEARCH & SCAN OPERATORS 

NAME 

REDUCE 

SEARCH SDL STACKS 
SEARCH LINKED LIST 
SEARCH SERIAL LIST 
SORT SEARCH 

THREAD VECTOR 

INITIALIZE VECTOR 

SORT STEP DOWN 



COMPANY CONFIDENTIAL 

BlfiOO/81700 SDL S-LANGUAGE 

p.S. #2201 2339 



UNDC 
RTRN 
RTNC 

EXIT 
CYCL 
MKS 
MKL 

EDI 
XTEI 
CNTR. 
CXIT 



MNEMONIC 

RDUC 

SSS 
SLL 
SSL 

SSCH 
TVEC 
IVEC 
SSD 



1111 01 0011 

mi oi oioi 



ff CF LEVELS 
« OF LEVELS 



1111 11 UOl OCl # OF LEVELS, 

TYPE, LENGTH 



* OF LEVELS 
DISPLACEMENT 



1101 11 
1110 11 
1011 11 

nil oi nil 
mi n oioi 
mi n ono 

1111 11 1010 000 

1111 11 1010 001 # OF LEVELS 



LL 

V 

V,# CF LEVELS 



CP CCDE 



ARGUMENTS 



1111 11 1001 1C1 VARIANTS, TYPE 

LL-OC 

nil ii iiio oci 

1111 01 1010 COMPARE TYPE 
1111 11 1000 000 COMPARE TYPE 
1111 11 1011 100 

mi n ion ooi 
1111 n ion ooo 
■ mi n ion 010 



BURROUGHS CCRPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



SORT SWAP SSfcP 

SORT UN9LCCK UBLK 

DELIMITED TOKEN OTKN 

NEXT TOKEN NTKN 

CEBLANK 08LK 

CHARACTER FILL CHFL 

TRANSLATE XLAT 
FINE DUPLICATE CHARACTERS FDIP 



COMPANY CCNFIDENTIAL 

eieoo/ei/oo sdl s-language 

P.S. #2201 2389 



1111 11 1011 101 
1111 11 1011 Oil 

1111 11 icoi cci type-ll-oc* 

DELI* CEL2 

1111 11 1001 COO type-ll-oc* 

SEPARATOR* V 

1111 11 1001 010 type-ll-oc 

mi n iooi loo 

1111 11 1110 101 
1111 11 1001 Oil 



MISCELLANEOUS CPERATORS 

NAME MNEMONIC 

TRANSFER MESSAGE XFRM 

HASH CODE HASH 

SWAP SWAP 

FETCH FECH 

FETCH AND SAVE FECS 

DISPATCH DISP 

HALT HALT 

READ CASSETTE ROCS 

LENGTH LENG 

LOAD SPECIAL LSP 

CLEAR ARRAY CLR 



CP CCDE 



ARGUMENTS 



1111 11-1010 010 CEST. VARIABLES 

SOURCE VARIABLE 

mi n loco cci 

mi oi ono 

mi oc noo 

1111 11 1110 on 

mi oi ion 

1111 11 0010 

mi oi ooio 

mi ic oooo 

1111 01 1110 VARIANT 

mi ic oiii 
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COMMUNICATE 

REINSTATE 

FETCH CMP 

DATA ADDRESS 

SAVE STATE 

HARDWARE MONITOR 

OVERLAY 

PROFILE 

PARITY ADDRESS 

EXECUTE 

COMMUNICATE ViITH GISMO 

ACD TIMER 

SUBTRACT TIMER 



COf'M 111 


1 1C 


0110 




REIN 111 


1 1C 


0001 




FCMP 111 


1 1C 


0010 




ADCR 111 


1 01 


1001 




SVST 111 


1 11 


0001 




HMON 111 


1 11 


0011 




OVLY 111 


1 11 


0000 




PRFL 111 


I 1C 


1111 




PADR 111 


1 11 


0111 




EXEC 111 


I 11 


1110 


010 


CWG 111 


ll 11 


1110 


110 


ADDT 113 


LI 11 


1100 


000 


SU8T 11] 


Ll 11 


1100 


001 



ENTRY NUMBER 
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RELATIONAL OPERATORS 



NAME 



MNEMONIC 



OP CODE 



ARGUMENTS 



ECUAL TO EQL 

LESS THAN LSS 

LESS THAN OR EQIAL TO LEG 

GREATER THAN GTR 

GREATER THAN OR EOLAL TO GEQ 

NOT EQUAL TO NEC 



1010 01 

1111 01 1C10 

I 111 00 1110 

1111 00 1001 

1111 00 1101 

1010 10 
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RELATIONAL OPERATORS 



Syntax : 



************* 

* ECL * NEC * 
************* 

* GTR * LSS * 
************* 

* GEG * LEG * 
************* 



EGL 
NEG 
GTR 
LSS 
GEG 
LEG 



Eauai to (=> 

Not equal to <_) 

Greater than (>> 

Less than (<> 

Greater than or equal to (•) 

Less than or equal to (\) 



Format : 



EQL 

*********** 

* 1010 01 * 
*********** 

CP-Ccde 



NEG 
*********** 

* 1010 1C * 
*********** 

OP-Code 



GTR 
**************** 

* 1111 00 1001 * 
**************** 



LSS 
********* ******* 

* 1111 00 1010 * 
**************** 



OP-Code 



GEQ 
**************** 

* 1111 CO 11C1 * 
**************** 
OP-Code 



LEO 
********** ****** 

* mi co mo * 
**************** 

OP-Code 



CP-Ccce 



Two operands are expected to be on top of the 

EVALUATION STACK. The lower operand is ccr.sicered tc 

be en the left side of the relation, while the top 
operand is considered to be on the right. 
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b. The relational operctors do a comparison betweer two 
operands of any data type- The operands are removed 
from the stack and c self -relative descriptor of a 
1-bit result is returned whose value is: 

1* When the condition is true - «(1)13 

2. When the condition is false - 3(1)03 



When both operands are FIXED* 
true signed arithmetic compare 



the operator does 



When both operands are character strings* the ccir.pare 
is done from left to right* using blank fill cr the 
right for the shorter string. 



For all other ooerand coir. binatiors leading zeros are 

supplied to the shorter of the two fields. No sign 

analysis is done ana the operands are treated as 

positive magnitudes. 
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ARITHMETIC OPERATORS 



NAME 

ADO 

SUBTRACT 

MULTIPLY 

DIVIDE 

MODULO 

REVERSE SUBTRACT 

REVERSE DIVIDE 

REVERSE MODULO 

NEGATE 

CONVERT TO DECIMAL 

CONVERT TO BINARY 



MNEMONIC 


CP 


CCCE 


ADD 


1011 


01 




sue 


1011 


1C 




MUL 


1111 


oc 


0101 


01 V 


1111 


00 


0110 


MOD 


1111 


OC 


0111 


RSL'B 


1111 


1C 


1100 


RDIV 


mi 


10 


1101 


FMCD 


mi 


10 


1110 


NEG 


mi 


01 


0111 


DEC 


mi 


10 


1000 


SIN 


mi 


10 


1001 



3-5 
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ARITHMETICS 



ADDITION 

SUBTRACTION 

MULTIPLICATION 

DIVISION 

MODULO 



************* 

* ACC * SUR * 
************* 

* MUL * CIV * 
************* 

* MOD * * 
************* 



Syntax: ADC 
SUB 
MUL 
DIV 

MOD 

Format : 



ADD 
*********** 

* 1011 01 * 

*********** 

OP-Coce 



SUB 
*********** 

* 1011 10 * 
*********** 

OP-Code 



MUL 

******* ********* 

* 1111 00 0101 * 
**************** 

OP-Code 



DIV 
**************** 

* 1111 OC 0110 * 
**************** 

CP-Ccde 



MOD 
**************** 

* nil co cm * 
**************** 

OP-Ccce 
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Function: 



a. Two operands are expected on the EVALUATION STACK* 

1. The bottom operand is considered to be en the 
"left" side of, the operator. 

2. The top operand is considered to be on the -right-. 

b. The arithmetic operators perform 24-bit arithmetic on 
two operands. These operands may be of any data type. 

c. Siqn analysis will only be done if bcth operators are 
of' type FIXED. With any other data type ccirbi nat i ens, 
the magnitudes of the operands are evaluatec. 

d # For bit and character data, if the field is greater 
than 24 bits, only the lew order 24 bits will be 
evaluated. When the field is less than 24 bits, zeros 
will be supplied on the left. 



Both operands are cut back. 



f. 



A 24 bit self-relative result is returned to the 
EVALUATION STACK. When both operands are type Fixtb, 
the result will be type FIXED. In all other instances 
the result will be of type BIT. 



ADD performs integer addition (♦) 

SUB performs integer subtraction <-) 

MUL performs integer multiplication (*) 

DIV performs integer division (/) 



h. DIV results in an integer value, 
truncated. 



Any reirai ncer i s 
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17/8 

3/7 

-7/Z 



= 2 
= C 

«* w ** 



The MOD operation is division resulting in the 
integer value of the remainder. It is evaluatec by 
the following formula; 

Y MOD 2 - Y~(( Y/Z) *Z) » using integer value cf h. above 



For example: 

7 »M0D 3 = 7-CC 7/3)*3> = +1 
-7 MOD 3 = (-7)-C({-7)/3)*3) = -1 

3 HOD -7 = 3~((3/C-7))*{-7)) = 3 
-3 MOD -7 = (-3)-(((-3)/(-7))*(-7)) = 



-3 



Note that this is NOT the same as the conventional 
rca thematic a I definition of HOC. 
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CONVERT TO BINARY 



******* 

* bin * 
******* 



Syntax: BIN 



Fcrrsat 



**************** 

* 1111 10 1001 * 
****** ********** 



OP-Ccde 



Funct i cr : 



An operand of one (1) to eight (8) characters is 
expected "on the EVALUATION STACK. 



These characters are assumed to 
digit characters • 



be numeric decimal 



The characters are treated as the decimal 
representation of an unsigned integer and are 
converted to the corresponding positive 24-bit binary 
number. 



A self-relative descriptor, of type GIT is left on 
the EVALUATION STACK with the binary value. 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 

81800/61700 SOL S-LANGUAGE 

P.S. #2201 2389 



CONVERT TC DECIMAL 



******* 

* CEC * 

******* 



Syntax: DEC 
Format s 



**************** 
* 1111 1C 1CCC * 
**************** 

GP-Code 



Funct l en : 



a. Two operands are expected to be on the EVALUATION 
STACK. 

1. The top operand should yield a value cf one (1) 
to eight (8). 

a) If not 1-8* a value of eight (8). will b'e Lsed. 

2, The second operand should be 24 bits ir length. 

a) If less than 2 4 bits* zero fill is prcvicec 
on the left. 

b) If more than 24 bits* then only the low crder 24 
bi ts wi I I be used . 

b. The 24-bit value is assumed to be type BIT* i.e. 
unsi gned. 

c. Both operands are cut back. 



d. Oepending upon the value of the top cescriptcr en the 
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EVALUATION STACK a 1 to a char ac ter res u It is 
top of the EVALUATION and VALUE STACKS, 
characters are the decimal representation 
24-bit value. 



left on 

T hese 
of the 



Leadi ng 
blanks. 



zeros 



in 



the 



result are not changed tc 
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NEGATE 



******* 

* KEG * 

* * * * ** * 



Syntax: NEG 



Formats 



**************** 

* mi oi cm * 
** * * ************ 

OP-Code 



Funct i on: 



This operator pops an operand off the EVALUATION 
STACK* negates ft# and pushes it back or tcp of the 
EVALUATION STACK as a FXXEC* s el f -r e lat ive result 
which is the two's complement of the operarc. 



b. Operands of any type other than FIXED are treatec as 

FIXED. 

1* Data items shorter than 24 bits are padced 
on the left with 2eros CO). 



2.=Data iteins longer than 24 bits are left-truncated 
and treated as FIXED. 



3-1Z 
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REVERSE ARITHMETICS 



*************** 

* RSU8 * RDIV * 
*************** 

* FHCC * * 
*************** 



Syntax: RSL'B 
RDIV 

RHOO 

F c r hi a t : 



RSUB 
**************** 
* 1111 10 uco * 

**************** 



RDIV 
**************** 

* llll 10 11C1 * 
********** ******* 



OP-Ccce 



OP-Code 



RMCO 
**************** 
* 1111 10 1110 * 
*************** 

CP-Code 



Funct i on: 



These operators perform the sawe operation as* their 
corresponding "forward" operators- The only 
difference is the order of the operands ir the 
EVALUATION STACK. 



1. 



2. 



Reverse subtract: The second operand ir the 
EVALUATION STACK is subtracted from the operanc 

on top of the stack. 



Reverse divide: The seconc operand in 
EVALUATION STACK is divided into the operaro 
top of the s tack . 



the 
on 



the 



Reverse modulo: The second operano in 
EVALUATION STACK is divided into the operanc on 
top of the stack to obtain the residue. 
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EXTENCED ARITHMETIC OPERATORS 



NAME 

EXTENCED ADO 
EXTENCED SUBTRACT 
EXTENDED MULTIPLY 
EXTENDED DIVIDE 
EXTENDED MODULO 



MNEMONIC 


CP 


CCDE 


Oil 


ARGUMENTS 


XADD 


1111 


11 1100 




XSLB 


1111 


11 1100 


ICO 




XMLL 


1111 


11 1100 


101 




XDIV 


mi 


11 1100 


110 




XMOO 


mi 


11 1100 


111 
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EXTENDED AHITHMETIC OPERATORS 



Syntax : 



XACD 
XS18 
XMIL 
XDIV 
XKOD 



*************** 

* XADD * XSUB * 
*************** 

* XFUL * XDIV * 
*************** 

* XKCD * * 
*************** 



Format: 



XADD 
******************** 

* 1111 11 11C0 on * 
******************** 
OP-Code 



XSU3 
******************** 
* 1111 11 HOC 100 * 
******************** 



CP-Code 



XMIL 

******************** 

* 1111 11 11C0 101 * 

******************** 

OP-Code 



XDIV 
********** ********** 

* mi n noo no * 
******************** 

OP-Code 



XMOD 
******************** 
* 1111 11 nco in * 

******************** 
OP-Code 
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F u n c t i c r : 



Two operands are expected to be on the EVALUATION 
STACK. 



b. 



The operands are popped from the EVALUATION STACK and 
the indicated operation is performed on the operands. 



c. The operands are always treated as bit strings. 

d. The result returned on the top of the EVALUATION 
STACK is non-self-relative* -type BIT. 



Addition/Subtraction 

U If the two operands are of different ^r S ths, 
then the shorter is padded on the left with 
binary zeros. 

2. The length of the sum/difference will be ectal to 
the length of the longer operand. 



f. Multiplication 

1. The length of the product will be the sum of the 
lengths of the two operands. 



g. Division/Modulo 

1. The length of the result will be the length of 
the dividend. 

2. For the Modulo operator, the dividend must be 
non-self-rel at ive . 
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LOGICAL OPERATORS 



NAME 

AND 

OR 

EXCLUSIVE-OR 

NOT 



MNEMONIC 


AND 


OR . 


EXCR 


NOT 



CP CCDE 

1111 OC 0001 

1111 OC 0000 

1111 OC 010 

1111 OC 1C11 
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LOGICAL OPERATORS 



************** 

* AND * EXOF * 
************** 

* CF * * 
************** 



Syntax: AND 
OR 
EXOR 



Format : 

AND 
**************** 

* 1111 OC CCC1 * 
**************** 
OP-Corie 



OR 
**************** 

* mi 00 coco * 

**************** 

OP-Code 



EXOR 
***** *********** 

* 1111 00 0010 * 
**************** 

CP-Ccde 



Funct i en: 



3 <• 



"NOT" is unary operator and is explained separately* 
All other logical operators expect two operands to be 
en the EVALUATION STACK, 



The operands* regarcless of their type* are operated 
upon bit by bit* starting from the right. When the 
operators are of unequal length the shorter ore is 

padded on the left with zeros* 



The length of the result is the length cf the Icrger 
operand. When the result is 2k bits cr less* the 
result is self-relative, or the VALUE STACK- 
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d. The result is always type BIT. 



e. The two ooerands are cut back from the 
STACK and the result is pushed cnto the 
STACK. 



EVALUATION 
EVALUATION 
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LOGICAL NOT 



******* 

* fcOT * 
******* 



Syntax: NOT 



format : 



**************** 
* 1111 00 1C11 * 

**************** 

OP-Code 



Func tier: 



.This operator expects one operanc to 
the EVALUATION STACK. 



be cr the t cp of 



b. The result is of the same type and length as the 

operand* but each bit representing the result value 

is the one's complement of the cor respenci rg bit of 

the operand. 



If the operand is self -r el at i ve » the result will be 
se I f-rel ati ve# otherwise* the result will be 
non-self-relative* 
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STRING OPERATORS 



NAME 

CONCATENATE 
SUBSTRING ONE 
SUBSTRING TfcO 
SUBSTRING THREE 



MNEHCNIC 

CAT 
SSI 
SS2 
SS3 



CP CCDE 

1100 11 

1111 11 0100 

1111 OC 1000 

1010 00 



T,V,C,L 

T*V 

T>V 
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STRING CONCATENTATION 



******* 

* CAT * 

******* 



Syntax: CAT 



Forma t : 



*********** 

* 1100 11 * 
*********** 

OP-Code 



Funct l on : 



This operator pops two operands off the EVALUATION 
STACK and generates a new descriptor that oescribes 
the concatentati on of the two strings. The 
next-to-top operand must be non-se I f -r e lat ive* 
name* value bit on. 



b. When the source data items are of type CHARACTER* the 
results will be type CHARACTER. 



All ether data type con>b i nat i ens 
result to be of type BIT. 



will cause the 
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SUBSTRING* ONE PARAMETER 



******* 

* SSI * 

******* 



Syntax: <String Type BitxLoad Type 8it> 
<0 f f set><Length> 



Forrca t : 



******************************************* 
•1111 11 01 CO* . * 

************************ 



OP-Code 



*************** 
*********** *********»■«"*"-**-' # 

. mi u cico * . * „...:..,„„.:.............*...«. 

* * 

* * 

* *** 6 cr 17 Bits 

* Specifies lergth 

* 
* 
*** 6 or 17 Bits 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 



Specif ies offset 



*** 1 Bit = Load Address 
1 = Load Value 



*** 1 Bl t C = Length in bits 

1 = Length in character 



The Offset and Lencth fields are encoded as follows: 



1. If the first bit in these fields is ecual to CO) then 
5 bits follow* 



2. If the first bit in these fields is eaual to (1) then 
16 bits follow. 
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Func 1 1 on: 



This operator functions the same as SS3 except that 
the offset and length fields ane literals which 
follow in-line* rather than values on the EVALUATION 
STACK, 
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SUB-STRING, two parameters 



* * * *- ** * 

* SS2 * 

******* 



Syntax: SS2 <String Type Bitxtosd Type 8it> 



Format 



***************************** 
* 1111 00 1CC0 * * * 
***************************** 

OP-Ccde * * 

* * 

* *** i bi t> 
* 

* 
* 
*** 1 bit* 



= Load Adcress 

1 = Load Value 



C = Length in bits 

1 = Length in characters 



Func t i on: 



Two operands sre 
EVALUATION STACK. 



expected to be fourc 



on 



the 



2. 



The top operand is the offset ir bits or 
characters of the substring from the beginning of 
the string. If longer than 24 bits* crly the low 
order 24 bits are used. 



The next operanc is the string- It 
type. It must not be se I f -r e lat i v e 
bit is 0* then it trust be an 
narae-value bit off). 



The two operands are then cut back and 
left on the EVALUATION STACK. 



may be of any 

If load type 

address (i.e. 



resu It is 



1. Type: 



3-25 
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a) String type tit = then bit 
String type tit = 1 then character 

b) Load type tit = C then adcress 

Load type tit = 1 then value (self-relative 

if length is 24 bits or less) 



Length: 
a) 



Length is ecual to the original length of the 
string minus the offset. 



3« Address: 

a) Load type bit = then the 
equal to the old string 
o f f se t. 



address 
accr ess 



in bits is 
plus the 



b) Lead type bit = 1 then the adcress is the 
address of the VALUE STACK if the substring 
tength is greater than Zk bits* 



1) 



2) 



If the load type bit is set arc substring 
tength is greater than 2 4 bits* the 
substring is loaded to the top of the 
VALUE STACK. 

If the load type bit is set and the 
substring length is less thar cr ecual tc 
24 bits the substring is leaded right 
justified into the address field cf the 
top of the EVALUATION STACK. 

When the offset is greater than the length cf the 
string* an error interrupt occurs* 
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SUB-STRING. THREE PARAMETERS 



******* 

* SS3 * 
******* 



Syntax: SS3 <String Type BitxLcad Type Bit> 



Fcrrcat : 



*************************** 
* 1010 00 * * * 
*************************** 
GP-Code * * 



Funct i en: 



*** 1 bit* = load address 
1 = load va lue 



*** 1 bit* = length in bits 

1 = length in characters 



Three operands are expected to be found or the 
EVALUATION STACK, 

1. The top operand is the length in bits or 
characters of the substring desired. 

2. The second operend is the offset in bits , or 
characters froit the beginning of the string. 



The third operand is the string. It tray be cf any 

type. It must not be se I f -r e I at iv e. If IcaC type 

bit is C, then it n»ust be an accress 
name-value bit off). 



( i . e 



b. All three operands ere cut back and a result is left 
on the EVALUATION STACK. 



3-27 
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Type: 
a) 



Stri ng 
Stri ng 



type bit = C then bit 

type bit = 1 then character 



b) Load type bit = then adcress 

Load type bit = 1 then value (self-relative 

if length is 2 A bits or less) 



2* Length: 



a) Length is equal to the length cf the 
minus the offset* 



string 



Address: 

a) Lead type bit = C then the address 
equal to the old string address 
offset. 



in bits is 
p lus the 



b) Load type bit = 1 then the address is the 
address of the top of the VALUE STACK if the 
substring length is greater than 24 bits. 



1) 



If the load type bit 
substring length is 
substring is loaded to 
VALUE STACK. 



is set anc the 

> 24 bits* the 

the top ef the 



2) 



I f the load 
subs tr ing is 
the adcress 
STACK. 



type bit is set anc the 

loaceo right justifiec intc 

field of the EVALUATION 



4. When the offset plus the length is greater than 
the length of the string* an errcr interrupt 
occurs. 
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STORE OPERATORS 

NAME MNEMONIC 

STORE DESTRLCTIVE ST CD 

STORE NON-DESTRUCTIVE LEFT SNDL 
STORE NON-DESTRUCTIVE RIGHT SNOR 



CP CCDE 
0010 
1010 11 
1111 OC ClOO 



ARGUMENTS 
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STORE NON-DESTRUCTIVE, DELETE LEFT 



******** 

* SKDL * 
******** 



Syntax: SNDL 



F o r r a t : 



*********** 

* 1010 11 * 

*********** 

OP-Code 



Funct ion: 



This operator pops two 
EVALUATION STACK. 



operands cff the top of the 



The top (destination) operand must be 
ron-sel f-rel ati ve and the naroe-value bit must be cff# 
i.e. it must be an address. 



It then copies the data described by the second 
(source) descriptor into the location cescribec by 
the top (destination) descriptor. 
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fchen both the source and cestination fields are of 

type CHARACTER, the cata will be left justified in 

the destination field with either blank fill or 
truncation on the right. 



Any other source-destination field type combinations 
yield right justified data in the destination field 



the left. This 



with either zero fill or truncation on 

allows for type conversion and length truncation. 



The source descriptor is then pusheo back en to 
EVALUATION STACK. 



the 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 

ieOO/81700 SDL S-LANGUAGE 

P.S. #2201 2369 



STORE NON-DESTRUCTIVE, DELETE RIGHT 



******** 

* SNCR * 
******** 



Syntax 



SNDR 



Format : 



**************** 

* 1111 OC C100 * 
**************** 

OP-Code 



Funct i ens 



This operator pops two operands eff the 
EVALUATION STACK. 



top cf the 



b. The top (destination) operanc must % 
ron~sel f-rel at i ve ard the name-value bit irust be 
i.e. it must be an address, 

\ 



be 
off. 



It then copies the data described by the second 
(source) descriptor into the location cescribed by 
the top (destination) descriptor. 



d. Khen both the source and destination fields are of 

type CHARACTER, the data will be left justifiec in 

the destination field with either blark fill or 
truncation on the right. 



Any other source-destination field type comb i nat icrs 
yield right justified data in the destiration field 
with either zero fill or truncation on the left. This 
allows for type conversion and lergth truncation- 
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f. The destination descriptor is then pushed back en tc 
the top of the EVALLATICN STACK, (This is the cnty 
difference froni SNCLK 
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STORE DESTRUCTIVE 



******** 

* STOD * 
*** ***** 



Syntax: STOO 



Fcrirat 



******** 

* 0010 * 
******** 

OP-Ccde 



Function* 



This operator pops two operands off the 
EVALUATION STACK. 



top of the 



The top (destination) operand must be 
ron-sel f-ret a t i ve and the name-value bit trust be cff* 
i.e. it must be an address. 



It then copies the data described by the second 
(source) descriptor into the location cescribed by 
the top (destination) descriptor. 



fehen both the source and destination fields are of 

type CHARACTER* the data will be left justifiec in 

the destination field with either blark fill or 
truncation on the right. 



Any other source-destination field type coirp i na t i ons 
yield right justified data in the destination field 
with either zero fill or truncation on the left. This 
allows for type conversion and length truncation. 
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construct descriptor operators 



name 



mnemonic 



CONSTRUCT DES. 8 A St ZERO CD8Z 

CONSTRUCT DES. LOCAL DATA COLD 

CONSTRUCT DES. FORMAL CDFM 

CONSTRUCT DES. FORMAL CHECK CDFC 

CONSTRUCT DES. FROM PREV. CDPR 



CONSTRUCT DES. FROM PREV. 
I AGO 

CONSTRUCT DES. FROM PREV. 
& MULTIPLY 



COAD 



CDMP 



CONSTRUCT DES. LEXIC LEVEL CDLL 



CONSTRUCT DES. REMAPS 
CONSTRUCT DES. DYNAMIC 



CDRM 
CDOY 



OP CODE 



ARGUMENTS 



1111 1C 0100 DESCRIPTOR 

1110 OC N» CES#l* .. .* 

DES#r 

1111 01 0001 LL,E 

1111 11 1101 CCO LL*E*D£S*lr...* 

CtS#r 



1110 10 

1110 01 

1111 1C 0101 
1111 1C 0011 



N* OES#l*...r 
DES#N 



N, CE5#1»...» 
DES#r 



N,DES#1*...* 
DES#r; 

TYPE-LL-OC^ 
DESCRIPTOR 



1111 00 1111 CESCFIPTOR 
1111 n mo COO TYPE 
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CONSTRUCT DESCRIPTOR PREVIOUS and AOO 



* * * * * ** * 

* CCAC * 
******** 



Syntax: CCAO <# Cescr i pt orsxDescrip torxDescr i ptor>.« 



Format 



********************************* 

* 1 110 01 * * * * ... 

********************************* 

OP-Ccde * * * 

* ******* 

* * 

* * 

* *** Descriptors* variable size 

* (See ir-line descriptor fcrirat) 
* 

* 

*** 5 8i ts 

Specifies number of descriptors 



Funct i on : 



a- The number of descriptors indicates the number of 
in-line descriptors* These will be used to build 
descriptors on the NAME STACK. 



b. The descriptors may be simple or array 



The address portion is generated from the w filler n 
field in the descriptor anc information from the 
previous entry on the NAME STACK, 



The following formula is used: 
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A« = A + L+F 

1. A* - is the new address part, 

2. A - is the address part of the previous 
descriptor generated on the NAME STACK- 

3. L - is the length part of the previous 
descriptor . 

A, F - is the "filler" field in the descriptor if it 
i s pre sent . 



The operator must be able to fine the aocress part of 
the previous entry whether it is a simple cr array 
descriptor. 



f. The new and previous descriptors canrct be paged 
array descriptors. 
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CONSTRUCT DESCRIPTOR BASE ZERO 



******** 

* CCBZ * 

*** * *** * 



Syntax: CDBZ <descriptor> 



F o r ir a t 



************************** 

* 1111 10 01 CO * * 

******* ******************* 

OP-Ccde * 

* 

* 

*** Descriptor* variable size 

(See in-line descriptor format) 



Funct i on: 



A descriptor is generated on the NAME STACK wit'h zerc 
(0) in the address field anc other fielcs specified 
by this in-line descriptor* 



Paged array descriptors are not allowed. 



j-jo 
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CONSTRUCT DESCRIPTOR DYNAMIC 



******** 

* CCDY * 
******** 



Syntax: CODY <Type> 



Format * 



******************************* 
* 1111 11 1110 OOC * * 

******************************* 

OP-Code * 

* 



Funct i on: 



*** 8 bits specifies type 

(See type field of in-line 
descri pt or format ) 



This operator constructs descriptors for dynamic 
arrays and dynamic character strings or bit strings. 



b. 



but the length 



The type field follows the op-coce, but tne lerjiii 
and number of entries will be operanos on the 
EVALUATION STACK. 



c. The descriptor will be marked as ron-se If -re la t i ve» 
and* if array* will be marked contiguous. 



d. 



The procedure to build the descriptor is as follows: 

e 

1. The type field is placed in the NAKE STACK. 

2. The type field is tested for simple cr array 
type. 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 

Bia00/E1700 SCL S-LANGUAGE 

P.S. #2201 2389 



3. For simple i terrs: 

a) Item length is the only entry 

EVALUATION STACK, 



on 



the 



b) The length is oopped off the EVALUATION STACK 
and placed in the NAME STACK. 



c) The VALUE STACK POINTER 
address* 



is used as the 



d) The VALUE STACK POINTER is updated by adding 
the leng th to it. 

4. For array items 

a) Length and number of entries will be in the 
EVALUATION STACK. 

b) The length is popped off the EVALUATION STACK 
and placed in the NAME STACK. 

c) Length between entries is the saire as length. 

d) The number of entries is poppeo off the 
EVALUATION STACK and placed in the NAME 
STACK. 

e) The VALUE STACK POINTER is used as the 
address. 

f) The VALUE STACK POINTER is updated by 
multiplying the number of entries by the 
length and adding the result to the VALUE 
STACK POINTER. 



J-i»U 
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CONSTRUCT DESCRIPTOR* FORMAL CHECK 



* * * ***** 

* CDFC * 
***** *** 



Syntax: COFM <Lexic Leve l>< IDesc ri pt ors> 

<Descrip torxOescr i ptor > •••• 



Fcrirat : 



*********************************************************** 
* 1111 11 1101 000 * * * * * .•. 

*********************************************************** 

OP-Code * * * * 

* * *********** 

* * * 

* * * 

* * Descriptors* variable size 

* * (See in-line descriptor fcrirat) 

* * 

* ******* 4 Bits* specifies the number 

* of 48 bit entries expected en 

* the EVALUATION STACK. 
* 

*********** 4 8its* specifies the Lexic level 
(to be made current)* 



Descriptor 



******************* 

* T * L * E * 
******************* 

* 
* 
******* 

* 



TYPE FIELD 



********************************* 

*0*1* * * * * * * 
********************************* 
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Bits: = Always C 

1 = A I ways 1 

2 = If ar ray then 1 

3 = If array then l» specifies that length 

between entries is equal 
to the length cf entries 

4*5= 00 BIT 

01 FIXED 

1C CHARACTER 

11 VARYING 

6 ■= If array bound varying then 1 

7 = If length of data varying then 1 



L = Length field - (6 or 17 bits). Appears 
only if type bit 7 is equal to zero CO) 



E = Number of entries for array - <6 or 17 bits) 
Appears only if type tit 6 = and 
type bit 2 = 1 • 

Depending on the conditions in the type field* 
different fields appear in the in-line descriptor; 



Kind Array ( A ) 

Siirple (S) 
Length varyi ng (L V) 
Array bound varying (ABV) 



THEN: 
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K IN0 L v ABV FIELDS THAT APPEAR 
************************************************* 

* S * FALSE * * T* L * 

************************************************* 

* S * TRUE * * T * 

************************************************* 

* A * FALSE * FALSE * T* L, E * 
************************************************* 

* A * FALSE * TRUE * T# L * 
************************************************* 

* A * TRUE * FALSE * T* E * 
************************************************* 

* A * TRUE * TRUE * T * 
************************************************* 



Function: Refer to CONTROL STACK Mechanism 

a. CS. ENTERED. LL(CSP-l) := CURRENT. LL := LL; 
OISPLAYCCURRENT.LL) := CURRENT. NSF? 

1. A previously executec MKS has initially set up 
CONTROL. STACK(CSP-l) . 

2. Since the format parameters have not been p t ut on 
the NAME STACKS CURRENT. NSP has not yet been 
bumped. 

b. Descriptors for the actual parameters are expected to 
be on the EVALUATION STACK. 



c. The descriptors in the instruction are watched to 
descriptors in the EVALUATION STACK. starting Kith 
the last descriptor in the EVALUATION STACK and 
matching it with the first descriptor 
inst rue ti on. 



i n 



the 



d. The descriptors* after comparison, are Icadeo tc the 
NAME STACK. The EVALUATION STACK is cutback. The 
VALUE STACK is unchanged. 



. When array bound varying is equal to 1* the array 
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bound is taken from the. actual parameter. 



f. When length varying is equal to 1* the length is 
taken fro it the actual parameter. 



When the data type is varying* the data type is taken 
from the actual parameter. 



h. 



hhen an array the actual array need ret be 
contiguous. If it is* the foriral and actual 
parameters must match identically. If there is a 
mismatch* an error interrupt occurs. 



For paged arrays* bcth the paged array bit anc the 
page subscript size must be copiec. 
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CONSTRUCT DESCRIPTOR FORMAL 



******** 

* CCFK * 
******** 



Syntax: CDFM <Lexic Level><# of ES entries> 



Forira t : 



******************************** 
* 1111 01 0001 * * * 
******************************** 

CP-Ccae * * 

* * 

* * ** 4 Bi t s 

* t of EVALUATICN STACK entries 
* 

* 



*** 4 Bits 

Lexic I eve I 



Function: Refer to CONTROL STACK Mechanism 



CS. ENTERED. LL(CSP-l) := CURRENT. LL := LL; 
CISPLAYCCURRENT.LL) := CURRENT. NSF; 

1. A previously executed MKS has initially set up 
CONTROL. STACK(CSF-l) 

2. Since the actual parameters have not yet been put 
on the NAME STACK* CURRENT. NSP has not yet been 
bumped. 



b. Descriptors for the actual parameters are expected to 
be en the EVALUATION STACK. 



c. The number (#> of EVALUATION STACK entries specified 
is transferred to the NAHE STACK- (An entry is always 
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4 8 bits; therefore* an array Dassed as a parameter 
uiU be considered as two 48-bit entries). 



d. If the name value bit is on# it is turned off 



e. CDFM employs no form of parameter checking- 
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CONSTRUCT DESCRIPTOR LOCAL DATA 



******** 

* COLD * 

******** 



Syntax: COLD <# Descr i p torsxCescr i p t cr xDescr i pt or> ., 



F c r f a t J 



******************************************** 

* 1110 CC * * * * *** 

******************************************** 

OP-Ccde * * * 

* ********** 

* * 

* * 

* Descriptors* variable size 

* <See in-line descriptor format) 
* 

*** 5 Bits 

Specifies number of descriptors 



Funct i on: 



The number of descriptors indicates the number of 
in-line descriptors. These will be used as frccels to 
build descriptors on the NAME STACK. 



The descriptors may be simple or array 



c. The filler cp 

can never be present. 



tion of the in-line descriptor format 



d. Array descriptors cannot have the length between 
entries option present. 



.>"-<♦ ( 
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When paged array is not indicated 
1, 



2* 



If the descriptor is to 
value (address field) will 



be 
be 



sel f-relat i ve* 
zero- 



its 



If non-self -rel ctive* the current value of the 
VALUE STACK PUNTER is used as the adcress field 
of the generated descriptor. The VALUE STACK 
POINTER, is than increased by the total length of 
the data item. 



f. When a paged array is indicated. 

1. The page subscript size option will be 
present. 

2. The address field of the generated 
descriptor is set to 0. 



.>-*» n 
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CONSTRUCT DESCRIPTOR LEX1C LEVEL 



***** ** * 

* CCLL * 
******** 



Syntax: CCLL <Oata Addre ssxDescr ip t or > 



Format: 



********************************** 
* 1111 01 0011 * LL*ON * * 
********************************** 

CP-Code * * 

* * 

* *** Descriptor* variable size 

* (See in-line descriptor format) 
* 

* 

*** Variable size* depending en 
the type bits in this field 



Funct i on: 



a. This operator fcuilcs a descriptor on the NAME STACK 
using the in-line descriptor as a mo eel. 



b* The data address is used to find a data descriptor in 
the NAME STACK* its address fielo is then usee for 
the address field of the new descriptor. 



c. The data address will never reference a paged array 
descr i ptor • 
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CONSTRUCT DESCRIPTOR PREVIOUS I MILTIPLY 



* CCMP * 
******** 



Syntax: CDMP <#De scri ptors><Oescr ip t or ><0escr ipt or>- 



F or m at : 



*************************************** 

* 1111 1C 01C1 * * * * „•• 
*************************************** 

OP-Ccde * * * 

* ******* 

* * 

* * 

* *** Descriptors* variable size 

* (Refer to in-line descriptors) 



Funct i on: 



*** 5 Bits-Spacifies number of descriptors 



a. The number of descriptors indicates the number of 
in-line descriptors- These will be used to build 
descriptors on the NAME STACK. 



b. The descriptors may be simple or srray. 



c« The address fielo is calculated using the following 
formula: 

A« = A ♦ L ♦ F + ((#£-1) * LB) 

1- A« - is the new address part. 

2* A - is the address part of the previous entry. 
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3. L - is the length part of the previous entry, 

A. F - is the "filler" field in the descriptor* if 
it is present. 

5* #E - is the "number of entries" part of the 
previ ous entry, 

6. LB - is the "length between" part of the previous 
entry. 



d. The previous entry is always assumec to be cf type 
array. It will never be paged. 
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CONSTRUCT DESCRIPTOR FROM PREVIOUS 



******** 

* CCPF * 
******** 



Syntax: COPR <#Descr i p torsxCescr ip t or xOescr i pt or> 



Forma t : 



********************************** 

* 11 10 1 * * * * •••• 

********************************** 
CP-Code * * * 

* ******* 

* * 

* Descriptors* variable size 
* 

* 

*** 5 bits 

Specifies number of descriptors 



Funct i on: 



a* The number of descriptors indicates the rubber of 
in-line descriptors. These will be usee to buila 
descriptors on the NAME STACK. 



b« The descriptors may be simple or array* 



The address portion is generated from the "filler" 
field in the descriptor and information frcir the 
previous entry on the NAHE STACK. 



d* The following formula is used: 

A* - A+F 
1* A' - is the new eddresspart 
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2. A -is the address part of the top entry or the 
NAME STACK 

3. F - is the Miller** field in the descriptor if 
it is pr esen t • 

e. The previous descriptor built may be either simple or 
array. 



f. The new and previous data descriptors cannot be paged 
arrays. 
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CONSTRUCT DESCRIPTOR REMAPS 



******** 

* CCRM * 
***** ** * 



Syntax: CORK <Leng t h-Chec k Vari snt>< In-L ine Cescriptcr> 



Fcrira t s 



* * * * ************************ 

* mi oo an * * * 
**************************** 

OP-Ccde * * 

* * 

* *** Descriptor* (See in-line 

* descriptor format) 

* 
* 



Function: 



*** 1 Bit C = No length checking 
1 = Length checking 



This operator builcs a descriptor on the NAME STACK 
by using: 

1. The in-line descriptor information 

2- An address obtained from the address field of the 
descriptor on top of the EVALUATION STACK. 



b« 



fchen the length check variant is set (1) ther the 
length in the in-line descriptor is compared tc the 
length field of the descriptor on the EVALUATION 
STACK* If it is greater a run time error will be 
si gnall ed* 



The descriptor on the EVALUATION STACK is removed. 
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LOAD OPERATGRS 



NAME 

MAKE DESCRIPTOR 

VALUE DESCRIPTOR 

DESCRIPTOR 

NEXT GR PREVIOUS ITEM 

LOAD 

LOAD ARRAY FIELD ADDRESS 

LCAO FIELD ADDRESS 

LOAD FIELD ADDRESS 
FROM PREVIOUS 

LOAD ADDRESS 

ARRAY LOAD VALUE 

ARRAY LOAD ADCRESS 

INDEXED LOAD VALUE 

INDEXED LCAD ADDRESS 

INDEXED LOAD FIELD ADDRESS ILFA 

LOAD LITERAL 



MNEMONIC OP CODE 



ARGUMENTS 



MDSC 


1111 


10 


1010 






VDSC 


1111 


01 


1000 






DESC 


1100 


10 






TYFE-LL-GC 


NPIT 


1111 


01 


1101 




V* TYPE-LL-OC 


L 


1101 


00 






TYPE-LL-CC 


LAFA 


1111 


11 


1111 


on 


TYPE* LENGTH 


LFA 


nil 


11 


mi 


001 


TYPE*OFFSET*LI 
TYPE-LL-CC 


LFAP 


mi 


11 


mi 


010 


TYPE* OFFSET* 
LENGTH 


LA 


0000 








TYPE-LL-CC 


AL 


nil 


01 


HOC 




TYPE-LL-CC 


ALA 


1101 


01 






TYPE-LL-OC 


IL 


nil 


01 


OOOC 




TYFE-LL-OC 


ILA 


0001 








TYPE-LL-OC 


S ILFA 


mi 


11 


mi 


000 


TYPE* OFFSET* 
LENGTH 


LIT 


010C 








TYPE* LENGTH* 
LITERAL 
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LOAC NUMERIC LITERAL 
LOAD NUMERIC ZERO 
LOAD NUMERIC ONE 
REFER 



LITN 


0011 




LITERAL 


ZOT 


0101 






ONE 


0110 






REFR 


1111 


11 1111 100 
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ARRAY LOAD VALUE 



* * * *** 

* AL * 
****** 



Syntax 



AL <Data Address> 



Fornia t : 



************************ 
* 1111 01 1100 * LL*ON * 
************************ 

OP-Ccde * 

* 

*** Variable size depending upon type 
bits in this field 



Funct i on: 



The L e x i c 
Address) is 
STACK, 



Level * 
used to 



Occurrence 
address an 



Number 
entry 



pair 
in the 



(Data 

NAME 



1, NAME STACKCDISPLAYCLD+ON) 



The low-order 24 bit field of the subscript on top of 

the EVALUATION STACK is compared to the "number of 

entries** field of the descriptor- If greater than or 
equal an invalid subscript error occurs. 



If the paged array bit of the descriptor is off 
paged) then: 



(not 



1. The array descriptor is subscripted 
descriptor is genersted or. the 
EVALUATION STACK* describing a copy 
of the selected element of the 
descriptor will be s e I f -re la t i ve if 



ard a si ir.ple 
top of the 
of the value 
array. Th i s 
the length of 
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the value is less than 24 bits* otherwise it will 
be non-self -rel stive* its naire-value bit on* and 
the value on top of the VALUE STACK. 



Paged arrays only. 

1* If the address field of the descriptor is 0* 
(page table rot yet allocated) then: 

a) The address of the current instruction <AL or 
ALA) is pushed onto the PRCGFAM POINTER 
STACK. 

b) A copy of the subscript is pushed ortc the 
EVALUATION STACK. 

c) The base-relative bit adcress (in the NAME 
STACK) of the paged array cescriptcr is 
pushed onto the EVALUATION STACK. 

d) The M-:nachine state is saved (in 
base-relative form) in RS.M. MACHINE. 

e) The segment* whose segment number is given in 
RS.INTRI NSICS.LQC* is entered at di sp I acetrert 
0. <This is the memory management intrirsic). 

f) Upon exit* execution will begin at Step a. 



The address field points to the first entry in 
the page table. The subscript is shifteo to the 
right by the number of bits indicated by the page 
subscript size. The resulting number (the page 
table subscript) is used to access the page. table 
entry. 

If the presence bit in the page table entry is 
off then: 

a) The address of the current instruction is 
pushed onto the PROGRAM POINTER STACK. 

b) A copy of subscript is pushed ontc the 
EVALUATION STACK. 
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c) The base-relative bit acdress 

table entry is pushed on to the 
STACK. 



cf the page 
EVALUATION 



d) Execution gees to Step 
manager is entered)* 



d.l.d) 



(The iremory 



The address field of the page table entry points 
to the page. The number of bits indicated by page 
subscript size is extracted 
bits of the subscript- 



from the low crder 



This number (page subscript) is used to subscript 
into the page. A simple descriptor is generated 
on the top of the EVALUATION STACK as in Step c. 
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ARRAY LOAD ADDRESS 



******* 

* ALA * 

******* 



Syntax: ALA <Data Address> 



Forirat 



******************* 
* 1101 01 * LL#ON * 
******************* 

OP-Code * 
* 

* * * Variable size* depending upcn the 
type bits in this field. 



Funct i en : 



The execution of ALA is identical to that of array 
load* except that the resulting descriptor or the 
EVALUATION STACK is always ncn-se I f-re lat i v e and 
points to the array element itself rather than a 
copy. (See step c.l of AL). 
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DESCRIPTOR 



******** 

* OESC * 
******** 



Syntax: OESC <Oata Address> 



Forrcat : 



********** ********* 

* 11C0 1C * LL>ON * 
******************* 

OP-Code * 



*** Variable size cepending upon 
type bits in this field* 



Func t ion: 



The Lexic Level* Occurrence Number pair (Data 
Address) locates a cescriptcr ir the NAVE STACK. The 
descriptor may be either simple or array. 



b. A descriptor C4S bits) is generated on the EVALUATION 
STACK that points to the descriptor ir the NAME 
STACK. The length field of the new cescriptcr will be 
4 8 or 96 depending on the type of the cescriptcr in 
the NAME STACK. Its type will be 6 IT. 



O 1 
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INDEXEO LOAD VALUE 



****** 

* IL * 

****** 



Syntax: IL <Data Address> 



Format : 



************************ 

* 1111 01 CCOO * LL#ON * 
************************ 

CP-Ccde * 

* 

*** Variable size depending on the 
type tits in this fielc. 



Funct i en : 



The Lexic Levels Occurence Number pair CCata Address) 
locates a descriptor in the NAME STACK. 



The descriptor must be non-sel f -relative 



c. 



When the descriptor is non-array* then* 

1. An operand (which is the index) is taker off 
top of the EVALUATION STACK, A copy of 
descriotor in the NAME STACK is then pushed 
the EVALUATION STACK and its acdress fielc 

incremented by the index* 



the 

the 

cnt c 

i s 



2. The resulting address descriptor is then mace a 
value by copying the data to the top of the VALUE 
STACK* changing the address field ana setting the 
name-value bit. 
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d. When the descriptor is an array descriptor, 

1. Same as case c. above* except only the first 48 
bits of the NAHE STACK descriptor are picked up 
and the array bit is turned off in the type 
field, 

2. The array descriptor cannot be type PAGED. 



3-63 
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INDEXED LOAO ADDRESS 



******* 

* ILA * 

* * * * ** * 



Syntax 



ILA <Data Address> 



Fcrrra t : 



**************** 

* 0C01 * LL^ON * 
**************** 

OP-Ccde * 

* 

*** Variable size depending on the 
type bits in this field. 



Funct i on: 



Indexed load address functions the same as indexed 

load value? the only difference being that the 

resultant address descriptor is rot converted to a 
value (Step c,2 of IL is oiritted). 
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INDEXED LOAD FIELD ADDRESS 

Syntax: ILFA < t ypexo f f se t > t <t eng th> 3 

Format: 

***************************************** 
* 1111 tl 1111 000 * * * * 
***************************************** 

GP-Code * * * 

* * * 

* * *** Length (optional) 

* * 

* *** Offset 

* 

*** Type 



******** 

* ILFA * 
******** 



Funct ion: 



Using the value on top of the EVALUATION STACK as the 
base area* the user loads a subfield to the 
EVALUATION STACK by SU38ITtirg according to <offset> 
and <length> and builds type as specified by <type>. 
This S-OP is only used for indexing layouts (as 
REMAPS 8ASE items) and should eventually be phased 
out. 



1. <TYPE> 



is 3 bits encoded as fellows: 

BIT 3 BIT ( 1) 

1 FIXED 4 BIT (24) 

2 CHARACTER 5-7 UiNDEFINED 



2. 



<0FFSET> 
bit. 



is 9 or 17 bits* depending on the first 



<LENGTH> is 6 or 17 bits* depending en the first 
bit. <LENGTH> is not present if the type is 
FIXED* SIT (1)* or BIT (24). 
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LOAD VALUE 



* * ***** 

* L * 

******* 



Syntax: L <Oata Address> 



Forrrat 



******************* 

* 1101 00 * LL*ON * 
******************* 

OP-Code * 
* 

*** Variable size* depending on 
type bits in this field. 



Funct i en: 



The Lexic Level* Occurrence Number pair (data 
address) is used to address the NAtfE STACK. 

1. NAMESTACKCOISPLAYULD+ON) 

2. The descriptor st this location must net be an 
array descri ptor • 



When the descriptor is se If -re lat i ve or 

ron- self- relative with a length less than or equal tc 

24* a self-relative descriptor is put on the 
EVALUATION STACK. 
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c- 



fchen the descriptor is non-self-relative with a 
length greater than 2 A : 

1. The descriptor is copied to the top of the 
EVALUATION STACK with the adcress fielo mocified 
to point to the top of the VALUE STACK- 

2. The data item is moved to the top cf the VALUE 
STACK. 

3. The VALUE STACK POINTER is bumped by the size of 
the data items- 



BURROUGHS CORPOKATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CCNFIDEMIAL 

81*800/01/00 SCL S-LANGUAGE" 

P*S. #2201 2389 



LCAD ADDRESS 



****** 

* LA * 

****** 



Syntax: LA <Cata Address> 



Format s 



**************** 

* 0000 * LL*ON * 
**************** 

OP-Ccde * 

* 

*** Variable size* depending on 
type bits in this field. 



the 



Funct i en: 



The Lexic Level* Occurence Number 
is used to address an entry in the 

I. NAME STACKCDISPLAY(LL)*ON> 



pair 

NAME 



(Data 
STACK 



Address ) 



If the descriptor at 
the 96 bit descriptor 
STACK, 



that locat ion is ar 
is copied to the 



array type 
EVALUATION 
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c. If the descriptor at that 
type then: 



location is 



non-array 



1. 



If the data item is set f -re I at i ve then build a 
descriptor on the EVALUATION STACK using the type 
and length frcm the NAME STACK and the address of 
the leftmost bit of the data item. Change the 
type of the new cescriptcr tc ron-se I f-re lat i ve. 
The data itself remains in the address portion of 
the descriptor in the NAME STACK. 

If the data i ten; is n on -self-relative then the 48 
bit descriptor is copied to the EVALUATION STACK. 



5-bV 
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LOAD ARRAY FIELO ADDRESS 



******** 

* LAFA * 
******** 



Syntax: LAFA <type> C<length>] 



Forirat s 



********************************** 

* mi ii mi on * * * 

**************************** ***** * 

OP-Code * * 

* * 

* *** Length (optional) 
* 

*** Type 



Funct ion! 



The top operand en the EVALUATION STACK is an array 
subscript; the next-to-top operand is a scaler .string 
which is to fce treated as an array with each 
element's type ano length given by <type> and 
<iength>. Load a descriptor of an element cf this 
implied field* using the given subscript. Check array 
bounds by using the length field of an array area 
de scr i ptor» 



s-r u 
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LOAC FIELD ADDRESS 



Syntax: LFA <type><offset>E<lengtr>l<data address > 
Format: 



** ***** 

* LFA * 
******* 



******* 

* 1111 

** ** *** 



**************************************** 
11 1111 001 * * * * LL*ON * 
**************************************** 
OP-Code * * * * 

* * * * 

* * * *** Variable size 

* * * cepencing on type 

* * * tits in this field 

* * * 

* * * 

* * 

* * 

* * 

* *** Offset 
* 
* 
***Type 



*** Length (optional) 



Funct I on 



Using the descriptor at <dats address> to describe 

the base area the user loads a subfiela tc the 

EVALUATION STACK fcy SUBBITting according to <offset> 

and <length> and builds type as specifieo by <type>. 



1. <Type> is 3 bi ts# 

BI T 

1 FIXEO 

2 CHARACTER 
etc. 



encoded 

3 BIT ( 1) 

U BIT (24) 

5-7 UNDEFINED 



<0f f set> 
bit. 



is 9 or 17 bits* depending on the first 



<Length> is 6 or 17 bits* depending en the first 
bit. <Length> is not present if the type is 
FIXED* BIT (1)* or BIT (24). 



s-f I 
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LOAC FIELD ADDRESS FROM PREVIOUS 



******** 

* LFAP * 
******** 



Syntax: LFAP < t ypexo f fse t>C <l eng th> 1 
Format: 



************************************** 

♦ 1111 11 11 11 010 * * * * 

************************************** 

OP-Code * * * 

* * * 

* * *** Length (optional) 



Func t i on: 



*** Offset 



* * * Type 



Lsing the descriptor on top of the EVALUATION STACK 
to describe the base area* the user Icacs a subfielc 
to the EVALUATION STACK by SUBBITting acccrdirg tc 
<offset> and <length> and builds type as specified by 
<type>. 

!• <Type> is 3 bits encoded as fellows: 

BI T 3 BIT (1) 

1 BIT 4 BIT (24) 

2 BIT 5-7 UNDEFINED 

2. <0ffset> is 9 or 17 bits* depenoing en the first 
bi t. 



3. <Length> is 6 or 17 bits* depending cr the first 
bit, (<Lenrjth> is not present if the type is 
FIXED* BIT(1 )* or 81 TC24).) 
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LOAO LITERAL ******* 

* LIT * 
******* 

Syntax: LIT <Type><Lengt h><Li t era l> 

Format: 

********************************** 
* 0100 * * * * 

********************************** 

OP-Ccde * * * 

* * * 

* * *** Literal* 24 bits if self-relative 

* * 

* * 

* *** Length of literal* 16 tits 
* 

*' 

*** 8 bit descriptor type field tells if literal 
is self-relative or non-s e I f -r e lat i ve 



Function: 



This operator loads a constant 
EVALUATION STACK. 



to the top of the 

1. When the literal is self-relative (less than or 
equal to 24 bits) the operator pushes the type* 
length* and literal onto the top of the 
EVALUATION STACK- 

2. When the literal is ncn-se I f -re lat i ve, the type* 
length and VALUE STACK pointer are moved to the 
top of the EVALUATION STACK and the literal is 
placed on top of the VALUE STACK. 

3. For literals less than twenty four bits in lergth 
the <literal> field must be twenty fcur bits long 
in the code file even though the <length> field 
specifies that the actual data is less than 
twenty four bits in length. 
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LOAD NUMERIC LITERAL 



******** 

* LITN * 
******** 



Syntax: LITN <Literal> 



F o r jt a t 



*************** , 

* 0011 * * 
*************** 

OP-Ccde * 

* 

*** 1 C Bit Literal 



Function; 



This operator loads a 10 bit literal to the tcp of 
the EVALUATION STACK as a FIXED* self-relative cata 
item. 
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MAKE DESCRIPTOR 



******** 

* MCSC * 
******** 



Syntax: MDSC 



Forrcat : 
**************** 

* 1111 10 1010 * 
**************** 
CP-Ccde 



Funct i en: 



A descriptor is expected to be on the EVALUATION 
STACK* 



This descriptor must describe another descriptor. 



c. This second descriptor (46 cr 96 bits> is copied to 
the EVALUATION STACK after cutting back the original 
descri ptor • 
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NEXT OR PREVIOUS ITEM 



******** 

* NPIT * 
***** ** * 



Syntax: NPIT <Next or Previous BitxOata Address> 



Format i 



****************************** 
* 1111 01 1101 * * LL#QN * 
****************************** 

OP-Ccde * * 

* * 

* *** Variable size* depending on 

* type bits in this field. 
* 

* 

*** 1 Bit 

=> Previous 

1 => Next 



Funct i on 



a. 



The Lexic Level* Occurrence Nurcber pair (Cata 
Address) describes a non-se I f -re lat i v e# non-array 
descriptor at 

NAMESTACK (D I SPL A Y (LL ) + ON ) 

******************* 
* T * L * A * 
********** ********* 



b. The descriptor is then modified 



******************* 
* T» * L • * A* * 
******************* 
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1. 


Previ cus 






8> T» 


= 


T 




L f 


= 


L 




A* 


= 


A-L 


2. 


Next 








a) T« 


= 


T 




L« 


= 


L 




A» 


= 


A+L 



The 
and 



modified descriptor replaces the olc descriptor 
copy is also placed on the EVALUATION STACK. 
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LOAD NUMERIC ONE 



******* 

* ONE * 
******* 



Syntax 



ONE 



Fcrirat 



******** 

* 0110 * 
******** 

OP-Code 



Functi on: 



This operator causes a FIXEC* 
descriptor containing a one CI) to be 
EVALUATION STACK. 



se If -re lat i ve 
placed cr the 
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REFER 



******** 

* REFR * 
******** 



Syntax: REFR <length> 



Format : 



************************** 
* 1111 11 1111 IOC * * 
************************** 

OP-Code * 

* 



***Length (6 or U tits dependirg on 
first bit). 



the 



Funct i on : 



Changes the descriptor on the top of the EVALUATION 
STACK to have the adaress of the second cperara on 
EVALUATION STACK. The length of the second 



the 

operand is compared to the length 

equal* an exception is given. 



in-line 



If not 
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VALUE DESCRIPTOR 



Syntax: VDSC 



Format: 



**************** 

* 1111 01 10C0 * 
**************** 



CP-Ccde 



Func t i on: 



***** ** * 

* vcsc * 

******** 



A descriptor is expected to be on the EVALUATION 
STACK, The following conditions are expected* but NOT 
checked : 

1. The name-value bit must ■ be OFF* 

2. The non-sel f -rel s ti ve bit must be ON, 

3. The descriptor is always 48 bits. 

The descriptor is moved to the VALUE STACK. 



The descriptor on the EVALUATION STACK is replaced by 
a 48 bit* non-self- relative descriptor that points to 
the descriptor just moved to the VALUE STACK, 
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LOAD NUMERIC ZERO 



******* 

* ZOT * 

******* 



Syntax: ZOT 



Format 



******** 

* 0101 * 
******** 

CP-Ccde 



Funct i on: 



This operator causes a FIXED* self-relative 
descriptor to be generated and placec en the 
EVALUATION STACK. The descriptor will contair the 
number zero. 



3-81 
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STACK OPERATORS 



NAME MNEMONIC 



BUMP VALUE STACK POINTER BVSP 

DUPLICATE DUP 

OELETE DEL 

EXCHANGE XCH 

FORCE VALUE STACK FVS 



OP CODE 

1111 1C 1011 

1100 00 

1111 00 0011 

1011 00 

1100 01 



ARGUMENTS 
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8UMP VALUE STACK POINTER 



******** 

* BVSP * 
*** ***** 



Syntax: BVSP 



Forirat : 



**************** 

* 1111 10 1011 * 
**************** 



OP-Ccde 



Func t i on: 



The descriptor on the top of the NAME STACK must be a 
simple* non-sal f- relative descriptor, that points tc 
the top of the VALUE STACK. 



b. 



The low order 16 bits of the value described by the 

descriptor on the tcp of the EVALUATION STACK are put 

into the length field of the descriptor cr top cf the 
NAME STACK. 



The top of 
incremented 



stack pointer 
by this 16 bit 



for the 
value. 



VALUE STACK is 



NOTE: This operator is not generated 
the IV. release. 



by the SDL compiler after 



i-0-5 
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DELETE 



******* 

* DEL * 
******* 



Format : 



**************** 
* 1111 00 cou * 

**************** 



OP-Code 



Funct i on: 



The top descriptor en the EVALUATION STACK is deleted 
along with its associated value in the VALUE STACK if 
the name-value bit is on* 
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DUPLICATE 



******* 

* DUP * 
******* 



Syntax: DUP 



Fcrirat • 



*********** 
* 1100 oc * 

*********** 



OP-Code 



Funct i on: 



This operator takes the Ae bit (simple) cescriptcr on 
M EVALUATION STACK, explicates it 

the top of the EVALUATION 



the top of the 
exactly and pushes 
STACK. 



it onto 



If the name- value bit is 
will not be duplicated. 



on* the VALUE STACK portion 



5-tit) 
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FORCE VALUE STACK 



******* 

* FVS * 
******* 



Syntax: FVS 



Format: 



*********** 

* 1100 01 * 

*********** 

CP-Code 



Function: 



An operand is expected to be on the EVALUATION STACK 



If the operand is a non-sel f -r e lat i ve value* no 
action is taken- Otherwise the operand is converted 
to a non-self-relative value by copying its data to 
the top of the VALUE STACK* setting its cescriptcr's 
address field to the copied data anc changing the 
type field to non-se t f -r e I at i ve value* 
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EXCHANGE 



******* 

* XCH * 
******* 



Syntax: XCH 



Format * 



*********** 

* 1011 00 * 
*********** 

GP-Ccoe 



Funct i en: 



This operator swaps the two top descriptors or the 
EVALUATION STACK, 



Both entries will always be 48 bit (siirple) 
descri ptor s« 



The name-value bit may be set in one* but rot bcth* 
of the descriptors. 
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PROCEDURE OPERATORS 



NAME 



CALL 



IF THEN 



IF THEN ELSE 



CASE 



UNDO 

UNDC CONDITIONALLY 

RETURN 

RETURN FORMAL CHECK 

EXIT 
CYCLE 

MARK STACK 

MARK STACK AND UPDATE 
ENABLE-DISABLE INTERRUPTS 
EXIT-ENABLE INTERRUPTS 
CO-ROUTINE ENTRY 
CC-FOUTINE EXIT 



MNEMONIC 



CALL 



CP CCDE 



IFTH 



IFEL 



CASE 



0111 



1001 



11C1 1C 

1111 01 0100 



ARGUMENTS 



TYPE-SEG- 
PAGE-DISP 

TYPE-SEG- 
PAGE-CISP 

ADDR TYPErTYPE- 
SEG-PAGE-DISP 

t CF ACOR*> ADDR 
TYPE* TYPE-SEG- 
PAGE-CISP*...* 
TYPE-SEG-PAGE- 
CISP 



UNDO 


1000 








# CF LEVELS 


UNDC 


1111 


01 


0011 




# CF LEVELS 


RTRN 


1111 


01 


0101 




# OF LEVELS 


RTNC 


1111 


n 


1101 


C01 


# CF LEVELS, 
TYPErLENGTH 


EXIT 


1101 


n 






# OF LEVELS 


CYCL 


1110 


n 






DISPLACEMENT 


MKS 


1011 


n 








MKL 


1111 


01 


nil 




LL 


EOI 


mi 


11 


0101 




V 


XTEI 


mi 


11 


0110 




V*# OF LEVELS 


CNTR 


nil 


11 


1010 


000 




CXIT 


mi 


11 


1C10 


001 


# OF LEVELS 
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CALL 



******** 

* CALL * 
******** 



Syntax: CALL <Code Address> 



F o r ir, a t : 



*************** 

* 0111 * * 
*************** 

OP-Code * 
* 
*** Type* Segment* Di spl acement 



Functi en: 



The code address type may not be of type "null". 



The location tpage number* segmert n'umber, 
displacement) of the first bit f c I lewi ng the 
instruction is pushed into the PROGRAM POINTER STACK. 



The code address in the instruction is used as the 
address of the next instruction to execute. This way 
require a lookup in the segment dictionary to locate 
the segment. 
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CASE 



******** 

* CASE * 
******** 



Syntax: CASE <# of Code Addr es se s><A ddress Type> 
<Ccde AddressxCode Address> ...... 



Format : 



*************************************************** 

*iiiicicicc* * * * * * 
*************************************************** 

CP-Code * * * * 

* * *************** 

* * * 

* * * 

* * 

* * 

* * 

* * 

* * 

* * 
* 
* 
* 
*** 8 8its 

t of addresses 



*** (Alt addresses are 
of types spec i f iec 
by <Address Type> 
unless they are 
rutl)- 



*** 2 Bits Code 
address type 



Funct i on: 



An operand is expected to be on the EVALUATION STACK. 

The value of this operand is usee to select ore of 

the code addresses. C selects the first address* 1 

the second* etc. 



b. When the value is out of range* 
occurs. 



an 



error interrupt 
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When the proper address has 
performed on that address. 



been isolated a "CALL" i s 



Any of the addresses may be null addresses (type 
field-Ill) in which case the rest of the acdress will 
be padded with zeros (even though the type is null 
the address size is the same as the nor-rull 
addresses). 



V<hen a null address 
termi nated. 



is selectee the cpe ration is 
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COROUTINE ENTRY 



******** 

* CNTfi * 
***** *** 



Syntax: CNTR 
Format : 



******************** 
* 1111 11 1C10 ooc * 

******************** 



OP-Code 



The table associated with each of the co-routine operators has the 
following, fcr or. at. 



DECLARE 

01 TA9LE* 

02 NUMBER. OF. ENTRIES 8ITC4), 
02 ENTRY. ADDRESS 8IT(32>» 

02 PPS.C0PY(16) 8IT<32>* 



Funct ion: 



The descriptor on the top of the EVALUATION STACK 
will contain the address of TABLE. 



b. The current code address is pushed onto the PROGRAM 
POINTER STACK. 



c. The number of elements of PPS.CCPY* specifiec by 
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NUMBER- OF. ENTRIES is pushed cnto the PRCGFAM POINTER 
STACK. 



d. The address of the next instruction is taken frorr, 
ENTRY. ADDRESS. 
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C0-F0UTINE EXIT 



******** 

* CXIT * 
*** ***** 



Syntax: CXIT <U of Levels to exit> 



F o r if a t 



*************************** 

* 1111 11 101 001* * 
************** ************* 

OP-Ccde * 

* 

*** 4 Bits* specifies rumber 
of levels to exit- 



See CNTR for TABLE format 



Function: 



a. The descriptor on the top of the EVALUATION STACK 
will contain the address of TA9LE. 



b- Number of levels is stored in NUMEER-CF. ENTRIES 
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The current code adoress is stored in ENTRY. ACCRESS. 

The number of entries on the top of the PROGRAM 
POINTER STACK, (specified by t cf levels) is ccpvea 
to PPS.COPY (0) through PPS.COPY iff CP levels-1) if 
the # of levels is 0* nothing is copied. 



An UNDO is performed* using the « of levels as the 
nu.ber of entries to pop off the PROGRAM POINTER 
STACK. 
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CYCLE 



***** *** 

* CYCL * 

* * * * * ** * 



Syntax* CYCL <di splacement> 



Formats 



******************* 

* 1110 11 * * 
******************* 

QP-Code * 
* 
*** 12 bits* specifies the relative branch adaress 



Functi on: 



When the twelve bits are read by the processor* the 
program pointer will point the the first bit of the 
next instruc t i on . 



The twelve bit displacement is then subtracted from 
the program pointer to give a new next instruction 
address. 



c. This operator does not cause a charge in code 
segment. 
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ENABLE 0ISA8LE INTERRUPTS 



******* 

* EDI * 
** ** *** 



Syntax: EDI <Enable-di s abl e tit> 



Fcrtua t s 



********************* 
* 1111 11 0101 * * 
********************* 

CP-Ccde * 

* 

*** 



1 bit. = > Enable 
1 => Disable 



Fu net i on s 
Disab le 



Disable extracts frcm the interrupt queue a high 

priority interrupt and places the port, channel. and 

reference address associated with it en tcp cf the 
EVALUATION STACK, 



MCP's high-priority interrupt handlirg routine is 

CALL). If there is no high priority 

the next in lire S-cp is 



The 

entered (via 

interrupt in 

executed. 



a 
the 



queue 



Enable 



Enable checks the interrupt queue for a high priority 
interrupt; if one exists it places the associated 
port* channel. sne reference address in the 
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EVALUATION STACK 



b. A CALL to the MCP«s high priority interrupt handling 

routine is then performed. If no high priority 

interrupt exists an UNDO is performed* to terminate 
handling of high priority interrupts- 



NOTE: For MCP use only- 
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EXIT 



******** 

* EXIT * 

******** 



Syntax: EXIT <# of Levels> 



Fcrreat : 



******************* 

* uoi 11 '* # * 
******************* 

CP-Code * 
* 
*** Number of levels to exit (4 bits) 



Function: Refer to Control Stack Mechanism 

a. C1SPLAY and CONTROL STACK are updatec by the 
following al cori thins 



CURRENT. N'SP:=CS«.NSP<TCSP:=CSP2 = CSP-1>; 
CURRENT. VSPs=CS.VSP<CSP>; 
DO SEARCH FOREVER: 

IF CS. EXITED. LL(TCSP) = THEN UNDO SEARCH; 

IF CURRENT. LL = C S.E NTERED.LL (TCSF : = TCSF-1 ) THEN 

do; 

displayccurrent.ll):=cs.nsp(tcsp); 

UNDO search; 

end; 

end search; 



3-99 
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CURRENT. LL:=CS. EXITED. LLC CSP); 



An UNDO is oerformed on the PROGRAM PCINTER STACK* 
using the number of levels given in the instruction. 
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IF THEN ELSE 



******** 

* IFEL * 
******** 



Syntax: IFEL <Address TypexCode AddressxCode Adcress> 



Fcrwat : 



********************************** 
* 1101 10 * * * * 
********************************** 

OP-Code * * * 

* * * 

* * *** Type* Segment* Displacement 

* * 

* * 

* *** Type* Segment* Displacement 

* 
* 
*** Address Type* 3 Bits 

The type of both cede addresses must be the saire as the <Address 
Type>. The coce address may not be of type "null". 



Function: 



An operand is taken from the EVALUATION STACK. The 
rightmost bit of the value of the operanc is 
exami ned- 

1 = True 
C = False 



If true then* 

1. A CALL instruction is executed using 
code address. 



the first 
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c. If false then* 

1« A CALL instruction is executed using the 
cede address. 



second 



d. The return code address that is 
PROGRAM POINTER STACK by the call 
following this instruction- 



pushed intc the 
points to the bit 
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IF THEN 



******** 

* IFTH * 
***** ** * 



Syntax: IFTH <Code Address> 



Format : 



**************** 

* 1001 * * 

**************** 

OP-Cocie * 

* 
*** Type* Segments Displacement 



Funct ion: 



An operand is taken from the EVALUATION STACK, 
rightmost bit of the value of the cperanc 
exami ned. 

1 = True 
C = False 



The 
i s 



If true then* 

1. A CALL instruction is executed using the code 
address given in the instruction. 

2. The return code address that is pushed intc the 
PROGRAM POINTER STACK points to the bit following 
this instruction. 



If false then* 

1. This instruction is terminatec aro the next 
instruction in line is executeo. 



J'lUJ 
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MARK STACK 



******* 

* HKS * 
******* 



Syntax: MKS 



Format: 



*********** 

* 1011 11 * 
*********** 

CP-Code 



Func t i on: 



Refer to CONTROL STACK mechanism 



The CCNTRCL STACK is updated by the following algorithm 
CS.NSP(CSP):=CURRENT.NSP; 
CS.£XITED.LLCCSP):=CI'RRENT.LL; 
CS. ENTERED. LLCC5P):=C; 
CS.VSP(CSP):=CURRENT.VSP; 
CSP:=CSP + 1? 
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MARK STACK AND UPDATE 



******* 

* MKU * 
******* 



Syntax: MKU <Lexic Level> 



Forirat : 



************************ 

* 1111 01 1111 * * 

************************ 

OP-Ccde * 

* 

*** 4 bi t s* LL 

Lexic Level being entered 



Function: 



Refer to CONTROL STACK irechanism 

The CONTROL STACK and DISPLAY are updatec by the following 
algcr i thm: 

CSP.NSP(CSP):=CURRENT.NSP 

CS.EXITED.LL(CSP):=CURRENT.LL; 

CS. ENTERED. LL(CSP):=CURRE NT. LL:=LL; 

cs.vsp(csp): = current-.vsp; 

csp:=csp+i; 
displayccurrent.ll):=current.nsp; 
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RETURN FORMAL CHECK 



******** 

* FTNC * 
******** 



Syntax: RTNC <# of LevelsxType FieldxLength Field> 



Format 



****************************************** 

* 1111 11 1101 001* * * * 

****************************************** 

OP-Code * * * 

* * * 

* * *** Length Field (6 or 17 

* * bits). Present only if 

* * length varying bit is 

* * is net set- 

* * 

* * 

* *«* Type C8 bits) 
* 

* 

*** Number of levels 



Funct i on: 



Refer to Control Stack Mechanisrr, 



a* Type Field 

Bits: 

1 
2 
3 



Not used 
Not used 
Not used 
Not used 
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4-5 OC BIT 

01 FIXED 

1C CHARACTER 

11 VARYING 

6 - Always 

7 - l if length is varying 



the 



b. OISPLAY and CONTROL STACK are uptatec using 
following algorithm; 

CURRENT.NSP:=CS.NSP(TCSPi=CSP:^CSF-l>; 

CURRENT.VSP:=CS.VSP(CSP>? 

DO SEARCH FOREVER; 

IF CS. EXITED. LL(TCSP)-C THEN 

undo search; 

IF CURRENT .LL=CS. ENTERED. LLCTCSP:=TCSP-1) 

THEN 
DO? 

display(current.ll):=cs.nsp(tcsp); 
undo search; 
end; 
end search; 

CURR ENT. LL:=CS. EXITED. LLC CSP); 



c. The value to be returned is an operand en the tcp of 
the EVALUATION STACK. 



CL 



he type and length of the data must watch the type 
nd length specified in the instruction unless the 



type or length is varying 
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If the operand on the EVALUATION STACK is not 
self-relative* the data to be returned is moved tc 
the top of the VALLE STACK* i.e. changed tc a value 
from an address. 



f. An UNDO is performed on the PROGRAM POINTER STACK* 
using the number of levels given in the instruction. 



3-10ti 
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RETURN 



******** 

* RTFN * 
***** *** 



Syntax: RTRN <# cf Levels> 



F o r B a t : 



********** *********** 

* 1111 01 ClCi * * 
********************* 

OP-Ccde * 
* 

*** A Bit field that specifies 
the number of levels 



Function: Refer to Control Stack Mechanism 



RTRN performs no check on the type and length fields 
cf the value returned and is the return that is 
normally emitted by the compiler. FTNC cces perform 
checking and is available as a compiler option. 



The value to be returned is an operand en the tcp of 
the EVALUATION STACK. 



c. If the name value bit is off and the descriptor is 
non-sel f-rel ati ve* then an error condition cccurs. 



d. DISPLAY and CONTROL STACK are updated 
following algorithm 

CURRENT.NSP:=CS.NSP(TCSP:=CSP:=CSP-1>; 
CURR£NT.VSP:=CS.VSP(CSP>? 



by 



the 
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do search forever; 

if cs. exited .ll<tcsp) = then 

undo search; 
if cl'rr£nt.ll = cs. entered •ll(tcsp: = tcsp-1) 

THEN 

do; 

display(current.ll>5=cs.nspctcsp); 
undo search; 
end; 
end search; 
current. ll:=cs.exi ted.llccsp); 



If the operand on the EVALUATION STACK is not 
self -relative* the cat a tc be returned is moved to 
the top of the VALIE STACK* i - e . changed tc a ^ value 
from an address. 



f- An UNDO is performed on the PROGRAM POINTER STACK* 
using the number of levels given in the i rstruct icn. 
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UNDO 



******** 

* UNCC * 
******** 



Syntax: UNCO <# of Levels> 



Format 



************** 

* 1000 * * 
************** 

OP-Code * 
* 

*** 4 Bits to designate number 
of levels to undo CC-15) 



Funct i ens 



The PROGRAM POINTER STACK is cut back by the 
of levels specified in the instruction. 



nuirber 



b. 



The next entry in the PROGRAM POINTER STACK is then 

used as the pointer to the next i nst ruct i on. This 

entry is then also cut back fro* the PRCCFAM POINTER 
STACK. 
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UNDO CONDITIONAL 



***** *** 
* UNCC * 
*** ***** 



Syntax: UNCC <# of Levets> 



Fcrrrat 



********************** 
* 1111 01 ecu * * 

********************** 

OP-Code * 

* 

*** A Bits^ specifies number of 
levels to undo (0-15) 



Funct ion; 

a. An operand is taken from the top of the EVALUATION 
STACK. 

b. The rightmost bit of the operand is interrogated 

1 = TRUE 
- FALSE 

c* When true an UNDO operator is performed for the 
nurcber of levels indicated. 



d. When false the instruction is terminated and the next 
in-line instruction is executed. 
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EXIT* ENABLE INTERRUPTS 



*** ** *** 

* XTEI * 
******** 



Syntax: XTEI <UNDO or EXIT bit><# of Levels to exit> 



Fcrrrat : 



*************************** 

* llll 11 0110 * * * 

*************************** 
OP-Ccde * * 



*** 4 Bits* specifies number of 
of levels to exit 



*** 1 Bit* variant to specify if UKCC or EXIT 

=> UNDO 

1 => EXIT 



Funct ions 



The execution of XTEI is identical to that of EXIT* 
except that interrupts will be enabled before the 
operator terminates. 



NOTE: For MCP use only 
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SEARCH I SCAN OPERATORS 



NAME MNEMONIC 



CP C 



REDUCE RDUC 

SEAFCH SCL STACKS SSS 

SEARCH LINKED LIST SLL 

SEARCH SERIAL LIST SSL 

SORT SEARCH SSCH 

THREAD VECTOR TVEC 

INITIALIZE VECTOR IVEC 

SORT STEP OOkN SSD 

SORT SfoAP SSKP 

SORT UNBLOCK UBLK 

DELIMITED TOKEN DTKN 

NEXT TOKEN NTKN 

DEBLANK D8LK 

CHARACTER FILL CHFL 

TRANSLATE XLAT 

FINC DUPLICATE CHARACTERS FDUP 



DE 



ARGUMENTS 



1001 101 VARIANTS* TYPE' 
LL-OC 

1110 001 

1010 COMPARE TYPE 

1000 CCC COMPARE TYPE 

1011 100 
1011 0G1 
1011 000 
1011 010 
1011 101 
1011 Oil 

1001 001 TYPE-LL-QC* 

DELI* CEL2 

1001 CCO TYPE-LL-OC* 
SEPARATOR* V 

1001 010 TYPE-LL-OC 

1001 100 

1110 1C1 

1001 Oil 
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CHARACTER FILL 



*** * * *** 

* C^FL * 

******** 



Syntax: CHFL 



Formats 



******************** 

* 1111 u icci 100 * 

******** ************ 
OP-Corie 



Function: 



a- Two opera 



nds are taken frorc the EVALUATION STACK- 



The top operand is the source, and ,ust be eight bits 



in length- 



The seco 



nd operand is the destination. 



d. 



The source descriptor *ay be self-relative or 
ron-self-rel ati ve. 






J" 1 1J 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 

BieOO/BlfOO SCL S-LANGUAGE 

P-S- #2201 2389 



FINC DUPLICATE CHARACTERS 



******** 

* FCUP * 
******** 



Syntax: FDLP <Data AddressxData Address> 



Format : 



************************************ 
* 1111 11 1001 Oil * LL»CN * LL*CN * 
************************************ 

OP-Ccde * * 

* * 

********* 

* 

* 

* 

Variable size depending 

on type field* 



Funct ion: 



The text to be scanned is initially described by the 
first data address. 

The second data adcress describes the r.on-dup I icate 
text- 

The text will be scanned until three cr irore 
duplicate characters are found* 



d« Upon return the text descriptor is icdifiec to 
describe the remaining text- 



The non-duplicate text descriptor is modified to 
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describe the non-duplicated text that was scanned- 



f- 



The number ef duplicate characters will be left 
24 bit item on the top of the EVALUATION STACK. 



as 



The duplicated character will be left as the second 
item on the EVALUATION STACK anc will be of type 
CHARACTER* length 1- 
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DELIMITED TOKEN 



******** 

* DTKK * 
******** 



Syntax: DTKN <Data AddressxDe li m i t ers> 



Format: 



************************************ 
* 1111 11 1001 001 * LL*ON * * 
************************************ 
OP-Code * * 

* * 

* *** 16 Bits specifies delimiters 

* ( 2 ch ar act ers ) 
* 

* 

*** Variable size depending on 
type bits in this f ielc. 



Func t ion: 



a. The descriptor located by data address is used to 
access the first source character* 

b. The address of the first character is token-start. 

c. Characters are compared sequentially tc each cf the 
eight bitdelimiters until a match is fourc* 

d. Current address will point to the character which 
matches one of the delimiters. 



e. A descriptor is left on top of the EVALUATION STACK 
that is : 
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1. Non-self-relative. 

2. The address is the address of token-start. 

3. The length is equal tc the current address 
token-star t • 



m inus 



i. The address field of the NAME STACK descriptor for 
first character is set to the current accress. 
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DEBLANK 



******** 

* DBLK * 
***** ** * 



Syntax* DBLK <Data Address> 



Fcrrcat : 



***************** * ■* ********* 
* 1111 11 10C1 01C * LL*CN * 
**************************** 
OP- Code * 



*** Variable size depending on 
type bits in this field. 



Funct i on 



The descriptor located by <0ata Adcress> is used to 
access the first source character. 

Characters are then passed serially until a non-blank 
character i s found . 



The address of the first non-blark character fotnd is 
put into the address field of the descriptor 
described by <Data Address>. 
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INITIALIZE VECTOR 



******** 

* IVEC * 
******** 



Syntax: IVEC 



Format : 



******************** 
* 1111 U 1011 CCC * 
******************** 
OP-Ccte 



See SSD for keys table format 



VECTOR TABLE 
2 A Bits 



24 Bits 



24 Sits 



24 Bits 



4 Bi t s 



...::.::;:.....««..««»» ** """"""""*: 



* VECTOR 

* BASE 

* ADDRESS 



VECTOR 
LEVEL. 1 
SIZE 



KEY 

TABLE 

ADDRESS 



VECTOR 
LIHIT 
SIZE 



* FLAGS 

* 



;*^.:!:;*;.*.**.**"*******«"*************""**""****" 



SORT VECTOR 

2 10 20 

******************************************** 
. * * VECTCR ELEMENT. 1 * 

* * * RECORD * 

* FLAGS * LINK * ADDRESS * 
„ rLAUO ^ * VECTOR ELEFENT.n * 

******************************************** 



Funct i en 
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This operator is similar to Thread Vector, with the 
exception that* 

1. The vector has never been initialized Chad a 
winner )• 

2. The initial value of the bit displacement into 
the vector is zero CO). 

3. Each new value is incremented by 64. (Vector 
element length * 2). 
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NEXT TOKEN 



*** ***** 
* NTKN * 
******** 



Svntax: NKTN <Oata AddressxSeparat or > 
Syntax. < Nuraer ic- t o-Al pha Indicator 



Fortna t: 



************** 
* * 



**************************** 
* 1111 11 1C01 000 * LLfON * 

*************************** 

OP-Code * * * 

* 



********** ** *** 



Funct l cr: 



* 
* 
* 
* 
* 
* 
* 



*** 1 Bit 

Nunier ic-t c-A Ipha 
Indi cater 



*** 3 8its> specifies a 

separator 



*** Variable size ceperding cr 
type in this field 



The descriptor described by data address is usee to 
access the first source character- 



fa. The address o 



f the first character is token-start. 



If this character is a special character (less than 
II-) then set the current address to token-start *8 
and go to <g>. 



d. If the numeric 



-to-alpha indicator is se 



t CD* then 
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set stopper to "A" 



If the numeric-to-alpha indicator is not set CO) and 
the first character is numeric then set stopper tc 
"Cm Otherwise* set stopper to "A". 



f. Sequentially compare characters to stopper until one 
is found which is less than stopper and rot eaual to 
"separator". The current address will pcirt tc this 
character* 



c. A descriptor is left on top of the EVALUATION STACK 
that is: 



1. Ncn-sel f-rel at i ve of type character 



2. The address is the address of token-start 



3. The length is ecual tc the current address minus 
token-st ar t • 



The data address for first character is set tc the 
current address. 



It is assumed that a special character such as T 
will follow the image to be scanned* in order that 
scanning will terminate* 
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REDUCE 



******** 

* RCUC * 

******** 



Syntax: RDUC <Type><Resul t.f lagxOb j ec t>C<Result >3 



Format ** 



************************************************** 
* 1111 11 1001 101 * * * * LL# ON * LL» ON * 
************************************************** 



OP-Code 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* ** 



* 
* 
* 
* 
* 
* 
* 
* 
* * * 



* 
* 
* 
* 
* 
* 



*** Data adcress 

(Presert if result 
flag is en) 



*** Data a c dress 

Bit* 1 implies result presert 



1 8i t* => left-to-right 
1 => right-to-left 



scan 
scan 



*** 2 8 i ts»- 



00 Unuseo 

01 => NEG 

10 => ECL 

11 => IN 



Functi on: 



The character string 
address is scanned in 
character which satisfies 



located by the object data 
the direction indicated for a 
prescribed condition. 



1. 



I f the type is EGL* an 
EVALUATION STACK which 
The condition is satisifed 
is the same as this operand. 



operand is taken frorc the 

must be € bits in length. 

ty a character which 
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2. If the type is NEQ* an operand is taken as in the 
EQL case* but the condition is satisfied by a 
character which is different from the operanc. 

3. If the type is IN* the operand on the EVALUATION 
STACK must be of length 256 bits. A character 
satisfies the condition if* when usee as an irdex 
into the operanc bit string* it selects a bit 
whi ch is on. 

Note: If the operand does not meet the length 

requirements* an error will be generated. 



The scan terminates when either a character is found 
satisfying the cordition* or the object string is 
exhausted. At termination* a one-bit result is left 
on the EVALUATION STACK* 3(1)05 if no satisfying 
character was found or a SC1H3 if the character was 
found. In addition* the descriptor of object (and 
that of result* if present) is upcatec: 



1 



If the direction is left-to-right: 



A « = 
o 



A «• 
o 



L • - L - x 
o o 

A * = A 
r o 

L * = x 

r 

If the direction was right-to-left: 
A * = A 



L • - x ♦ 8 
o 

A • = A ♦ x * 8 
r o 
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L f = L - (x ♦ €) 

T O 



Vhere : 



A is the original address of object 
o 

A * is the new address of object 



L is the original length of object 
o 

L * is the new length of object 
o 

A * is the new address of result 
r 

L • is the new length of result 
r 

x is the difference between the address cf the 
character satisfying the conciticr and the 
original address of object- 



Note: Lengths here are calculated in bits even 
though they are character strings. The 
type field of the result cescriptcr will 
always be set to non-se I f -r e lat i ve 
CHARACTER. 
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SEARCH LINKED LIST 



******* 

* SLL * 
******* 



Syntax: SLL< Compare Type> 



Format 



********************** 
* 1111 01 1010 * * 

********************** 

CP-Ccde * 

* 
* 
** * 



3 Bits* specifies compare type 



The compare type specifies the desired relation, 
follows: 



It is encoaed as 



Funct i on: 



1 - Greater than 

2 - Less th3n 

3 - Not equal to 
A - Equal to 

5 - Greater than or equal to 

6 - Less than or equal to 



Four descriptors are expect ec to be en the top cf the 
EVALUATION STACK. These descriptors represent the 
following items: 
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Descri ptor 

Fi rst( top) 
Second 
Third 
Fourth 



leaning 

Link Location 
Compare Variable 
Compare Fielc Location 
Structure Address 



Link Location is a template which describes the 
field in the structure which contains the base 
relative address of the next structure to be 
exami ned. 

Compare Variable determines the value to be 
compared to the structure- Its length must be 
less than or equal to 24* 

Compare Field Location is a template whose length 
field is the length of the field to which ccirpare 
is to be compared and whose address 
the offset (in the structure) of the 
be compared against. The length must be 
or eaua I to 24. 



vari able 
field i s 
field to 
less than 



Structure Address is the base relative address of 
the first structure to be examinee. 



The linked list is searched until either the 
comparison succeeds or the end of the list is fctnd. 
The last element of the list must have a link field 
with binary l«s (i.e. 2FFFFFF3 if the link field is 
24 bits wide). 



If the seanch succeeds* then the tase nelative 
address of the current structure is left on the 
EVALUATION STACK as a 24 tit-value. 
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If the search fails* then 3FFFFFF3 is 
en the EVALUATION STACK. 



the value left 



NOTE: This operator will not terminate if it is unable 
to make a successful comparison and cannot fino the end 
of the list (a link fielc of all 1 » s ) • 
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SORT SEARCH 



** * * * ** * 

* SSCH * 

*** * * *** 



Syntax: SSCH 



Format : 



********** ********** 

* 1111 11 1C 11 ICC * 
******************** 



OP-Code 



See SSD fcr keys table format 



Function: 



This operator expects two itews to be on the 
EVALUATION STACK. 

1* The top i teoi is the buffer liirit address. 

2, The second item is the address of the search 
control table. 



SEARCH CONTROL TABLE 



Bits 



24 



24 



24 



24 



24 



******************************************************** 



* CONTROL * KEY * 

* RECORD * TA8LE * 

* ADDRESS * ADDRESS * 

* * * 



CURRENT * 
RECORD * 
INDEX * 

* 



SCAN * 

a * 

CCMPARE * 
TYPE * 



RECORD * 
SIZE * 

* 
* 



******************************************************** 



SSCH compares each record in a buffer with a ccrtrol 
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record on a specified key. 



The record may fce ccmparec from the top 
down or from the bottom of the buffer up 



of the buffer 



The compare can te for 

1. LSS (less than) 

2. LEQ (less than or equal to) 

3. GEO (greater than or eaual to) 



When a record is found that satisfies the comparison 
a one (1) is returned- Otherwise a zero is returned. 
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SORT STEP DCKN 



******* 

* ssc * 

** ***** 



Syntax: SSO 



Format 



******************** 
* 1111 11 1011 010 * 
******************** 
QP-Cods 



KEYS TABLE 



20 Bits 



A Bits 12 8i ts 
************************************************** 

I * I 



I 



1 



************************************************** 
FLAGS LENGTH DISPLACEMENT 



Function 



This operator expects three items to ce or the 
EVALUATION STACK. 

1, The value of the top item is the key table 
address- 

2. The second and third items are the left and right 
record addresses respect i ve ly • 
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b. The left and right records are compared according to 
the keys and return a value of one (1) when the right 
record is greater* accorcing to the keys* thar the 
left record* 
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SEARCH SERIAL LIST 



******* 

* SSL * 

******* 



Syntax: SSL <Coropare Type> 



Fcrrca t : 



************************** 
* 1111 11 ICCC coc * * 
************************** 

OP-Code * 

* 

*** 3 Bits* specifies cc m pare type 



The coiFpare type specifies the desired relation. It is encoceo as 
f cl lows: 

1 = Greater than 

2 = Less than 

3 » Not equal to 
A = Equal 

5 = Greater than or equal to 

6 = Less than or equal tc 

Funct i on: 



Four descriptors are expected to be on the top cf the 
EVALUATION STACK. These descriptors represent the 
f o I lowi ng i t ems. 
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Descri ptor 

Fi rst( top) 
Second 
Third 
Fourth 



Meani ng 

Table Length 
Compare Value 
First I tern 
Coirpsre Field 



1. Table Length is the length* in bits* of the table 
to be searched. 

2. Compare Value determines the value tc be ccrrpared 
to the structure. Its length can be greater than 
24. 

3. First Item gives the length and adcress of the 
first item in a serial list of items that are of 
identical structure. 

4. Compare Field gives the length and the cffset 
within the structure of the field to which 
Compare Value is to be compared. Unlike SLL* the 
length may be greater than 24 bits. 



b. 



The serial list of items is search ec beg in ring *ith 
first item until Compare Value satisfies Ccippare Type 
with Co, up are Field* or until the end of the li«st 
reached. 



i s 
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If the search succeeds, then the base relative 
address of the item containing the -successful- 
compare field is left on the top of the EVALUATION 
STACK and a 1-bit value of 1 (one) is left as tne 
second item on the EVALUATION STACK, 



If the search fails, then the end address of the 
table * 1 is left on the top of the EVALUATION STACK* 
and a 1-bit value of (zero) is left as the secono 
item on the EVALUATICN STACK, 
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SEARCH SOL STACKS 



**** *** 

* sss * 

******* 



Syntax: SSS 



Format: 



******************** 

* 1111 11 1110 001 * 
******************** 

OP-Ccde 



Func t ion: 



Four operands are removed from the EVALUATION STACK- 



Fi rst C top > 

Second 

Third 

Fourth 



Stack 8sse 
Stack Top 
Compare Base 
Compare Top 



The stack to be searched wilt consist of SDL 

descriptors and will be searched from base to tcp (or 

vice versa) for a simple descriptor whose acdress 

lies between compare base and compare top. 



Array descriptors 
be ignored- 



nd self -relative descriptors may 



If the search is successful then a one bit value 
CD is left on the top of the EVALUATION STACK. 



of 



If the search is rot successful then a one bit value 
cf <0) is left on the top of the EVALUATION STACK. 
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SORT SWAP 



******** 

* SSWP * 
******** 



Syntax: SSfcP 



Format: 



******************** 
* 1111 11 1011 101 * 
******************** 
OP-Code 



Funct i on: 



This operator pops two operands off the EVALUATION 
STACK, 



b« The values of the two operands are interchanged 
without regard to type. 



c. 



When the two fields are cf unecual length* the swap 

is limited to the length of the shorter field. The 

longer field is filled from the left; lew order bits 
are undisturbed. 
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THREAD VECTOR 



******** 

* TVEC * 
******** 



Syntax: TVEC 



Format: 



******************** 

* 1111 11 1011 001 * 
************ ******** 

OP-Code 



See SSD fcr keys table format- 
See IVEC for vector table format 



Funct i on: 



a- This operator expects two items to be on the 

EVALUATION STACK. 

1- The top item is a bit displacement into the sort 
vector* where the two vector elements tc co/rpare 
resi de. 

2. The second item is the address of the 100 bit 
vector table. 



b. The operator then compare s the two vector elements 
(according to the sort keys) and stores a winner. 



When the store address is equal to the vector limit 
the EVALUATION STACK is cut back and the irstrtction 
pointer advanced. 
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When the store address Is not equal to the vector 
limit: the bit displacement is updated and the 
EVALUATION STACK and program pointer remain 
unchanged. 
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SORT UNBLOCK 



******** 

* U6LK * 
******** 



Syntax: U8LK 



Forrrat : 



******************** 

* 1111 11 1011 Oil * 
******************** 

OP-Code 



a. This operator handles blocking for the sort 

operators. It moves data from a source field to a 

destination field and updates the blocking 
characteristics. 



Four items are expected on the EVALUATION STACK. 

1. The first item is the destination address. 

2. The second iteir is the source address. 

3. The third item is the length cf the 
transfer. 

A. The fourth item is the address of 
"Pseud o- Sort -Fib*'. 



data 



the 



c. When the block count goes to zero CO) a value of one 
<1) is returned. 



d. When the block count is other than zero a value of 
zero (0) is returned. 
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TRANSLATE 



******** 

* XLAT * 
******** 



Syntax: XLAT 



Forma t : 



******************** 
* 1111 11 1110 101 * 
******************** 
OP-Code 



Func t i on s 



Five operands are taken from the EVALUATION STACK. 

1. Descriptor for the result field. (Ar acdress 
operand ) . 

2. A self-relative descriptor whose value is the 
size of the i ten's in the result fielc and ir the 
translate table. 

3. The translate table. (May be a value cr an 
address operand). 

A. A self-relative descriptor whose value is the 
size cf the items in the source field. 

5* A descriptor for the source field. (An acdress 
operand) . 



Each of the items in the source fielc is usee tc 
subscript into the table to obtain an item which is 
then placed into the result field in the position 
that corresponds to the position of the original item 
obtained from the source. 
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This process continues until 

1* The source field is exhausted. 

2 . The result field is full. 

3. An error occurs (e.g. translate error). 



If either the source or the result is net a multiple 

of its respective item size then the last item 

translated or the last translated value will be 
truncated as required. 



Both source and table item sizes must be equal tc or 
less than 24 bits in length* otherwise a rur-time 
error occurs. 



The table need only be 
those items which will 
That is* the upper end 
present if it will 
attempting to access a 



large enough to acccircdate 
actually appear in the source, 
of the table need not be 
never be accessec. However* 
table iteff which is beycrd the 



actual size of the table will cause a rur-time error. 
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MISCELLANEOUS OPERATORS 



NAME 

TRANSFER MESSAGE 

HASH CODE 

SWAP 

FETCH 

FETCH AND SAVE 

CISPATCH 

HALT 

READ CASSETTE 

LENGTH 

LOAD SPECIAL 

CLEAR ARRAY 

COMMUNICATE 

REINSTATE 

FETCH CMP 

DATA ADDRESS 

SAVE STATE 

HARDWARE MONITOR 

OVERLAY 

FROFILE 



MNEMONIC 
XFRM 

HASH 

SWAP 

FECH 

FECS 

DISP 

HALT 

RDCS 

LENG 

LSP 

CLR 

COMM 

REIN 

FCMP 

ADCR 

SVST 

HMON 

OVLY 

PRFL 



CP CCOE 



ARGUMENTS 



1 11 1010 CIO CEST. VARIABLES 
SCUFCE VARIABLE 



1 11 1000 CC1 

1 01 0110 

1 00 1100 

1 11 1110 Oil 

1 01 1011 

1 11 0010 

I 01 0010 

1 1C 0000 

1 01 1110 

1 1C 0111 

1 1C 0110 

1 1C 0001 

1 1C 0010 

1 01 1001 

1 11 0001 

1 11 0011 

1 11 0000 

1 10 1111 



VARIANT 



ENTRY NUMBER 
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PARITY ADDRESS 

EXECUTE 

COMMUNICATE KITH GISMO 

ADD TIMER 

SUBTRACT TIMER 



PADR 


1111 11 Olll 


EXEC 


1111 11 1110 010 


CfcG 


1111 11 1110 110 


AODT 


1111 11 1100 COO 


SUBT 


1111 11 1100 001 
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ADDRESS 



******** 

* ACDR * 
******** 



Syntax: ADDR 



Forma t : 



**************** 
* 1111 01 1CC1 * 
**************** 

GP-Ccde 



Function: 



a, A descriptor is expected to be en the top of the 
EVALUATION STACK. This descriptor must be 

1. Non-array 

2. Non-self-relative 

3. The name-value bit must be off. 

b. The type field of the descriptor is set to 
sel f-relat i ve» BIT. 



The length field of the descriptor is set to 24. • 
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ADO TIMER* SUBTRACT TIMER 



*************** 

* ACDT * SUBT * 
*************** 



Syntax: ADOT <celt number> 
SUBT <cell number> 

Format : 



AODT 
**************************** * 

* 1111 11 1100 000 * * 

**************************** * 

OP-Ccde * 

* 

*** 16 Bits specifies cell ruirber 



SU8T 
**************************** * 

* 1111 11 11C0 001 * * 

**************************** * 

QP-Code * 

* 

*** 16 8 its specifies cell nuirfcer 



Funct i on: 



This operator assumes that DISPLAYC18) points tc cell 
zero of an array of 4e-bit cells* 



b. The cell number is used to subscript into the array 
to locate the indicated cell. 



The high-resolution timer is added (subtracted) from 
the indicated cell- 
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d. 



An adjustment will be made to the timer tc exclude 
the time required by the operator from being included 
In the cell time. 



If no high-resoluticn timer is present on the system* 
then this operator will not change the tilting cell- 
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CLEAR ARRAY 



Syntax: CLR 



Format 



**************** 
* 1111 1C cm * 

**************** 

CP-Ccde 



Funct i cr : 



******* 

* CLR * 

** * * ** * 



a. The descriptor on tcp of the EVALUATION STACK irust be 
a non-paged array descriptor* 



b« When the array is of type CHARACTER* the array 
elements are blank filled. 



c* For any other data types the array elements will be 
zero filled* 
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COMMUNICATE 



***** ** * 

* CCMM * 
******** 



Syntax: CCMM 



Format : 



**************** 
* 1111 10 one * 

**************** 

OP-Code 



Funct i on: 



a. The descriptor on the top of the EVALUATICN STACK is 
rcoved to RS.COMML'NICA TE. MSG. PTR . 



b« Vihen the name-value bit is on* it is turned off in 
the RS. COMMUNICATE. MSG. PTR. 



c. The descriptor is removed from the EVALUATION STACK 
and the VALUE STACK is cut back* if necessary. 



The M-machine state is stored in the appropriate 
parts of the RS. NUCLEUS. 



The program whose RS.NULCEUS address is given ir the 
RS. COMMUNICATE. LR is then instatec- 
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COMMUNICATE WITH GISMO 



******* 

* CWG * 

* * * * ** * 



Syntax: CKG 
Forrcat : 



******************** 

* 1111 11 1110 11C * 
******************** 

OP-Ccce 



Funct i on; 



a. A descriptor is expected to be on the top cf the 
EVALUATION STACK, 



b. If the descriptor is self -re lat i ve it is made 
non-sel f-ret at i ve by copying its data tc the VALUE 
STACK. 



c. The address field of the descriptor is rcace absolute 
and placed in the "T" register. 



d. The length field is placed in the "L " register. 



e. A swapper value cf 14 is placed in the **X W register 
and GISMO is cal led. 



f. The descriptor on the EVALUATION STACK is not 
removed. 
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DISPATCH 



***** *** 

* CISP * 
******** 



Syntax: D1SP 



For a*, a t 



**************** 
* 1111 01 1011 * 
**************** 
OP-Code 



Funct i or.: 



a- Two operands are removed from the EVALUATION STACK. 

b. The top operand is sn address operand of the I/O 
descriptor to be dispatched, 

c. The low order T bits of the second operant should be 
encoded as fellows: 



********** ******* 

* * * 

***************** 

* * 



*** 4 Bits* specifies Channel 



*** 3 Bits* specifies Port 



d. These two operands are passed as parameters to GISMO* 
which then performs the I/C operation. 
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GISMO returns a value which describes the results of 
the dispatch. A 24-cit sel f -re I at i ve descriptor is 
left on the EVALUATION STACK- The value has the 
f ollcwi ng meani ng» 

= Dispatch register lockout bit set 

1 = Successful dispatch 

2 = Successful dispatch* but missing device 
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EXECUTE 



******** 

* EXEC * 
******** 



Syntax: EXEC 



For sat : 



******************** 

* 1111 11 1110 010 * 
******** ************ 



OP-Code 



Funct i on : 



The value-of the top operand on the EVALUATION STACK 
wilt be considered to be the next op-ccde tc be 
executed. This is fcr the testing of exper i rrertal 
cp-ccdes in the interpreter. 



This operator is not in release interpreters. 
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FETCH COMMUNICATE MESSAGE POINTER 



******** 

* FCMP * 
******** 



Syntax: FCMP 



Format : 



**************** 
* 1111 10 OCIO * 

**************** 

CP-Ccde 



Funct ion : 



If the - RS.MCP.QIT is set 
FS. COMMUNICATE. MSG.PTR is accessec. 



then 



the 



b. If the RS.MCP.BIT is not set then the RS-REINST ATE* 
MSG.PTR is accessed* 



c. The accessec! field is assutnec to be a descriptor and 
is placed on the top of the EVALUATION STACK. 
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FETCH* FETCH AND SAVE 



*************** 

* FECH * FECS * 
*************** 



Synt ax: 



FECH 
FECS 



Foraiat : 



FECH 
**************** 

* 1111 00 11C0 * 
**************** 

OP-Code 



FECS 
******************** 
* 1111 11 1110 Cll * 

******************** 
OP-Code 



Funct ion: 



An operand is taken from the EVALUATION STACK. Its 
value indicates which item is to be examined or the 
Interrupt Queue (Refer to the MCP manual). 

=> Use the top item 
-1 => Use the top high priority interrupt time. 
Otherwise the value is the refererce 
address +ZU of the result descriptor 
desired. 



b. Two descriptors are left on the EVALUATION STACK. 

1. The top item is a Bit (24) s e I f -re lat i ve cata 

item whose value is the address of the desired 
I/O result descriptor. 

2. The second item is a Sit (10) self-relative data 
item whose value is the port and channel of the 
I/O operation. This has the following fcrirat: 
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********************************************************** 

* 1 Bit * 1 Bit * 1 Bit * 3 Bits * 4 Bits * 

********************************************************** 

* * * * * 

* * * * * 

* * * * * 
High Priority Interrupt Unused Port Channel 

Interrupt 



When the operator is Fetch* then the iteir is reircvea 
froir the Interrupt Queue* 



d« fchen the operator is Fetch and Save* ther the 
information is left in the Interrupt Queue. 



e. If the Interrupt Guaue was empty* 
descriptors have a value of zero CO- 



ther both 



BURROUGHS CORPORATION 
CGMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 

81800/81700 SCL S-LANGUAGE 

P.S. #2201 2369 



HALT 



******** 

* HALT * 
******** 



Syntax: HALT 



Format: 



**************** 
* 1111 11 0C10 * 
**************** 



OP-Code 



Funct i on 



a* 



The M-machire state is stored in the appropriate 
parts of the R5. NUCLEUS. (Refer to the KCF manual). 



b. The low-order 2A fcits of the value of the operand on 
the top of the FVALLATICN STACK* is rncved tc the 
T-regi ster . 



This operand is popped off the EVALUATION STACK and 
the M-instruction "HALT" is executed. 
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HASH CODE 



***** ** * 

* HASH * 
******** 



Syntax: HASH 



Fcrrcat : 



******** ************ 

* 1111 11 1CCC GC1 * 
******************** 

OP-Ccde 



Funct i on: 



The algorithm for generating the hash cede can best 
be described by an SDL procedure. 

PROCEDURE HASH.CCOECTQKEN) BIT (24>J 
FORMAL TOKEN CHARACTER VARYING; 
DECLARE 

<L*T) BITC24)* 

C CHARACTERC 1) t 

01 HASH BITC27), 

02 FILLER 8ITC3), 
02 TOTAL BITC2A); 
IF CHASH:=L:=LENGTH(TOK£N>) > 15 THEN L:=15> 

T:=0? 
/* C DESCRIBES THE CHARACTER PRECEDING TCKEN */ 
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DESCRIPTORS ):=346C0C83 CAT 
DATA.ADDRESS(TCKEN) -8? 
DO HASH. IT FOREVER; 

if l <8ump t then return total? 
bump total [~<t moo 4)3 by next . i temcc ) / 
end hash.it; 
end hash. code; 

b- Each character of TCKEN is being right acjusted ir a 
field of zeros and added to TOTAL in ere of four 
posi tions. 

********************************************************* 

* * * * * * * * HASH 

********************************************************* 

* C * C * T Moo 4 = 

********************************************* 

* q C * C * T Med 4=1 

********************************************* 

* c — o * C * T Mod 4 = 2 

******************************************** 

* q * C * T Mod 4=3 

*********************** **** ** *** ****** 
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HARDWARE MONITOR 



******** 

* HKCN * 
***** ** * 



Syntax: HMCN 



Format : 



**************** 

* 1111 11 0011 * 
**************** 



OP-Ccde 



Funct i en : 



An operand is taken froa! the top of the EVALUATION 
STACK, 



b* The low order eight bits of the operand's value will 
besed as the operand of a irenitor 
mi cro-ins true t ion. 
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LENGTH 



******** 

* LENG * 
******** 



Syntax: LENG 



Format: 



**************** 
* 1111 10 COCO * 
**************** 



OP-Code 



Funct ion: 



a. An operand is taken from the EVALUATION STACK. 



A self-relative* fixed result is returned tc the top 
Of the EVALUATION STACK* 

» 

1. When the operand was cf type CHARACTER* the value 
of the result is equal to the length field in the 

.operandi descriptor diviced fay eight, 

2. When the operand was of any type other than 
CHARACTER* the value is equal to the length fielo 
in the operand's descriptor- 
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LOAD SPECIAL 



** ** ** * 

* LSP * 

******* 



Syntax: LSP Variant 



For «rat : 



********************** 

* 1111 CI H1C * * 

********************** 

OP-Ccde * 

* 

*** 5 Bit Variant indicating value .tc loac 



Funct i en: 



The variant field indicates a value to be loacec tc 
the top Df the EVALUATION STACK* usually as a 24 bit, 
self* relative data itefl. 



Variant Value 

C Base register (absolute acicress) 

1 Limit register (base relative! 

2 S-Memory size in bits 

3 M-Memcry size in bits 

4 CONTROL STACK top (base relative) 

5 EVALUATION STACK tcp (base relative) 

6 CONTROL STACK size in bits 

7 NAME STACK top (base relative) 

8 DISPLAY BASE (base relative) 

9 CONSOLE SWITCHES 

10 SPO. INPUT. PRESEIST (1 bit) 

11 PROGRAM. SWITCHES (40 bits) 
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OVERLAY 



* * * * * *** 

* OVLY * 
***** ** * 



Syntax: OVLY 



Fcrirat : 



**************** 
* 1111 11 occo * 

**************** 

OP-Code 



Func t i on: 



An operand is taken from the top of the EVALUATION 
STACK. 



The value of the operand will be used by GISMO as an 
index into the interpreter dictionary. 



c. The interoreter dictionary will specify the action to 
be taken. (Refer to the 81600/81700 VCP irar.ual). 
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REAC CASSETTE 



Syntax: RDCS 



Format: 



**************** 

* 1111 01 0C1O * 
**************** 

OP-Code 



Funct f on: 



***** ** * 

* RCCS * 

***** ** * 



a. Three operands are exoected to be on top of the 
EVALUATION STACK. 



Top item - address operand where a one or zero is to 
be stored according to whether a hash total read from 
the tape is good or bad* 

Second item - a set f -r e I at i ve value of one if a hash 

total is to be r ea6 from the tape* else zero. 

Third item - an adcress operand where data frcrc the 
tape is to be stored. 



The following conventions apply? 

1. At least one record will be read- 

2. A sufficient r.uirter of recorcs will be read to 
fill the buffer requested (third operand). 

3. The cassette will not be stopped in the mi dele of 
a record. 
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4. Cassette record lengths should be multiples cf 16 
bi ts. 

5. If the size of the buffer is not a otltiple of 16 

and a HASH.TCTAL checking was reouested, then a 
bad. hash (0) indication will be returnee. 

6. If NO. HASH. TOTAL checking was requested, then a 
good hash CD will be returned. 
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PARITY ADDRESS 



***** ** * 

* PADR * 
******** 



Syntax 



PACR 



Forff at 



**************** 

* 1111 11 GUI * 

**************** 



OP-Code 



Funct i on : 



Starting at absolute address zero 
scanned until MAXS is reached. 



CO)* S-Mercory is 



b. If a parity error is detected* the error is corrected 

and its location is placed on tcp of the EVALUATION 

STACK as a self -relative 24 bit data item. The 

address returned points to the beginning cf the byte 

of S-memory in which the parity error occurred. 



If no error is detected* a value 
placed on the EVALlATION STACK. 



of 3FFFFFF3 is 



NOTE: For HCP use only 
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PROFILE 



******** 

* PFFL * 
******** 



Syntax: PRFL <Profile Array Index> 



Format 



********************** 
* 1111 10 1111 * * 
********************** 

OP-Ccae * 
* 
*** 12 Bits* specifies index 



Func t i on: 

a. D1SPLAYC16) contains the fcase relative actress cf the 
profile array. This array is between the lifrit of 
DISPLAY and the fcase of the CONTROL STACK. Each 
element of the array is 16 bits. 



The entry number given by <profile array index># 
bumped by one. 



i s 
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REINSTATE 



******** 

* REIN * 
******** 



Syntax: REIN 



F c r ir a t : 



**************** 

* 1111 10 C0C1 * 
**************** 



OP-Code 



Function: 



a. 



The descriptor on the top of the EVALUATION STACK is 
assumed to describe the RS.CONHU MC ATE. tfSG. PTR or 
RS. NUCLEUS of the program to be reinstated. (Refer to 
the MCP manual for a description of a run structure.) 



This descriptor should have the name-value bit off 



The reinstating program's S-machine state is 
in the appropriate parts of its RS. NUCLEUS. 



st cred 



The 
i s 
RS. 



address of the 
stored i n 

COMMUNICATE. LR. 



reinstating program's 
the rei nstat ec 



RS. NUCLEUS 
program* s 



e. 



The address field of the descriptor en the EVALUATION 
STACK contains the address of the RS. NUCLEUS cf the 
program that is instated when the descriptor is 
removed from the EVALUATION STACK. 
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SAVE STATE 



******** 

* SVST * 
******** 



Syntax: SVST 



Format : 



**************** 
* 1111 10 00C1 * 
**************** 

OP-Ccde 



Funct i en : 



The current state of the S-rcschine is saved 
RS.hUMACHINE (Refer to the 81600/E1700 FCF wanual)- 



i n 



3-171 
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SWAP 



******** 

* SWAP * 
******** 



Syntax: SWAP 



Format : 



**************** 

* 1111 01 OHO * 
**************** 

OP-Code 



Funct i on.: 



This operator takes two operands from the EVALUATION 
STACK. 

1. The top (source) operand may be a value cr an 
address operand. 

2* The second < dest i n a t i on) operand irust te an 
address operand. 

a) The length cf the destination determines the 
width of the data "swappec*. 



b. Desti nation field: 

1. When the length of the destination is greater 

than 24 bits* orly the rightmost 24 bits are 

isolated* otherwise the entire field is isolated. 



Source field: 

1. A value equal in length to the destination field 
is isolated in the source field- 
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2* The bits are taken from the right. 

a) When the source length is shorter thar the 
destinatior field* leading zeros are 
suppl i ed . 



d. 



The source field is moved to the cestiraticn field 
and the former value of the destination field is 
returred as a result on the EVALUATION STACK. 



The swap must fce performed such that no other 
processor, sharing the same rcemory can simultaneously 
swap out the same area of memory. 
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TRANSFER MESSAGE 



******** 

* XFRM * 

******** 



Syntax: XFFM destination type> t<DES.DATA DICT.BASE> 
KCEST. SUBSCRIPT. 90UNO>13 <Source Type> 
£<SGURCE DATA 01 CT*8 AS£> . C<Source Subscript 8cund>33 



NOTE: This operator is scheduled to be removed frorc the 
S-rcach i ne. 



Format : 



******************************************************** 
* 1111 11 1C1C C1C * * * * * * * 
******************************************************** 



GP-Code 



3 Bits Destination Type 



* 
* 
* 
* 
* 
* 
* 
* 

C* 12 Bits * 

Destination Subscript Bound 



* 
* 
* 
* 

* 

Qp 12 Bits * 

Destination Data Diet 8ase 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



3 Bits * 
Source Type 



0* 12 Bits 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 



Source Data Dictionary Base 



0# 12 Bits 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 



Scurce Subscript Bound 
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TYPE FIELD 



******************************* 
* * * * 

******************************* 



* 
* 

************** 

* 
- Descriptor is on E.S. 



1 - Use Data Dictionary 
(Data Diet- Entry 
base follows) 



* 
* 
* 
* 

- Use data oict- ertry 

descr ipt i cr 

1 - Use template in E.S- 

appliec tc cata cic. 
entry. 



************************ 
* 

- Not subscripted 

1 - Subscripted* subscript is on E.S« 

(12 bit subscript bound follows 
data diet- base ) 



Fu net i on : 



This operator transfers information between: 

1- Messages Cor parts of messages) 

2. Data contained within Base-Limit and messages or 
parts of messages. 



b* The source and destination fields may be of the 
foil owi ng types : 
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TYPE 
1. Base-Limit data 
2m Message 
3. Message array 
element 



Um Part of message 
a 
clement 



cf message array 



KEANS CF DESCRIPTION 
Descriptor on EVALUATION STACK 
Data dictionary entry number 
Cata oictionary entry number and 
subscript on the EVALUATION STACK, 
is adced to the cata cicticnary 
entry number 

The template on the EVALUAT1CN 
STACK is to be applied to the 
message which is described by the 
data dictionary entry. This is 
obtained the same as 2 or 3, 



The type field of the destinatior field is used 
obtain the description of the destinatior field. 



to 



d. The type field of the source field 
the description of the source field 



is usee to cb tai n 



Data is transferred from the source field to the 
destination field as in a character to character 
store operation: 



ALPHABETIC INDEX 



3-5 

3-147 

3-U6 

3-146 

3-147 

3-56 

3-59 

3-17 

3-4 

3-5 

3-59 

3-56 

3-8 

3-62 

3-82 

3-68 

3-39 

3-21 

3-35 

3-37 

3-38 

3-40 

3-44 

3-46 

3-48 

3-49 
3-51 
3-53 

3-114 

3-114 

3-149 

3-149 

3-91 

3-93 

1-14 

3-150 

3-150 

3-151 

1-2 

3-37 

3-38 

3-44 

3-51 

3-48 

3-46 

3-34 

3-49 

3-35 

3-53 

3-40 

1-15 

3-8 



ADD 

ADO TIMER* 

ADDR 

ADDRESS 

ADDT 

AL 

ALA 

AND 

ARITHMETIC 

ARITHMETICS 

ARRAY LOAD 

ARRAY LOAD 

BIN 

VALUE 



SU3TRACT TIMER 



OPERATORS 

ADDRESS 
VALUE 

STACK PCINTER 



BUMP 

8VSP 

CALL 

CASE 

CAT 

CDAD 

CD8Z 

CODY 

CDFC 

CDFM 

COLD 

CDLL 

CDMP 

CDPR 

CDRM 

CHARACTER FILL 

CHFL 

CLEAR ARRAY 

CLR 
'CNTR 

CO-ROUTINE EXIT 

CODE ADDRESSES 

COMM 

COMMUNICATE 

COMMUNICATE WITH GISMO 

COMPONENTS OF THE S-MACHlNE 

CONSTRUCT OESCRIPTCR BASE ZERO 

CONSTRUCT OESCRIPTCR 

CONSTRUCT OESCRIPTCR 

CONSTRUCT DESCRIPTCR 

CONSTRUCT DESCRIPTOR 

CONSTRUCT DESCRIPTCR 

CONSTRUCT DESCRIPTCR 

CONSTRUCT DESCRIPTCR 

CONSTRUCT DESCRIPTCR 

CONSTRUCT DESCRIPTCR 

CONSTRUCT DESCRIPTOR* 



DYNAMIC 
FORMAL 

FRCM PREVICUS 
LEXIC LEVEL 
LOCAL DATA 
OPERATORS 

PREVIOUS t MULTIPLY 
PREVIOUS and ADD 
REMAPS 
FORMAL CHECK 



CONTROL STACK MECHANISM 
CONVERT TO BINARY 



3-9 


CONVERT TO DECIMAL 


3-91 


COROUTINE ENTRY 


3-131 


CWG 


3-93 


C X I T 


3-95 


CYCL 


3-95 


CYCLE 


1-13 


OATA ADDRESSES 


1-7 


DATA DESCRIPTORS 


3-119 


DBLK 


3-119 


CEBLANK 


3-9 


DEC 


3-83 


DEL 


3-63 


DELETE 


3-117 


DELIMITED TOKEN 


3-60 


DESC 


3-60 


DESCRIPTOR 


3-152 


DISP 


3-152 


DISPATCH 


3-5 


OIV 


3-117 


DTKN 


3-84 


DUP 


3-84 


DUPLICATE 


3-96 


EDI 


3-96 


ENABLE DISABLE INTERRUPTS 


3-2 


EQL 


3-86 


EXCHANGE* 


3-154 


EXEC 


3-154 


EXECUTE 


3-98 


EXIT 


3-112 


EXIT* ENABLE INTERRUPTS 


3-17 


EXOR 


3-13 


EXTENDED ARITHMETIC OPERATORS 


3-155 


FCMP 


3-115 


FDUP 


3-156 


FECH 


3-156 


FECS 


3-155 


FETCH COMMUNICATE MESSAGE PCINTER 


3-156 


FETCH* FETCH ANO SAVE 


3-115 


FIND DUPLICATE CHARACTERS 


3-65 


FORCE VALUE STACK 


3-85 


FVS 


1-1 


GENERAL 


3-2 


GEO 


3-2 


GTR 


3-158 


HALT 


3-161 


HAROWARE MONITOR 


3-159 


HASH 


3-159 


HASH COOE 


3-161 


HMON 


3-1C2 


IF THEN 


3-100 


IF THEN ELSE 


3-100 


IFEL 



ALrriMCLIll, INULA 



3-102 

3-61 

3-6 3 

3~64 

1-18 

3-63 

3-64 

3-61 

3-120 

2-1 

3-120 

3-65 

3-67 

3-69 

3-162 

3-162 

3-2 

3-7 C 

3-71 

3-72 

3-73 

3-67 

3-69 

3-70 

3-71 

3-72 

3-73 

3-77 

3-80 

3-54 

3-163 

3-6 5 

3-19 

3-16 

3-163 

3-2 

3-74 

3-103 

3-104 

3-74 

3-144 

3-103 

3-104 

3-5 

3-5 

3-11 

3-11 

3-2 

3-75 

3-122 

3-19 

3-75 



IFTH 
IL 

ILA 

ILFA 

IN-LINE 

INDEXED 

INDEXED 

INDEXED 

INITIAL I 

INSTRUCT 

IVEC 

L 

LA 

LAFA 

LENG 

LENGTH 

LEQ 

LFA 

LFAP 

LIT 

LITN 

LOAD 

LOAD 

LOAD 

LOAD 

LOAD 

LOAD 

LOAD 

LOAD 

LOAD 

LOAD 

LOAD 

LOGICAL 

LOGICAL 

LSP 

LSS 

MAKE 

MARrf 

MARK 

MDSC 

MISCELLA 

MKS 

MKU 

MOD 

Ml'L 

NEG 

NEGATE 

NEQ 



DESCRIPTOR FORMATS 

LOAD AODRESS 

LOAD FIELO ADDRESS 

LOAD VALUE 

ZE VECTOR 

ION SET 



ADD 
ARR 
FIE 
FIE 
LIT 
NUM 
NUM 
NUM 
OPE 
SPE 
VAL 



RESS 
M F 
LD A 
LD A 
ERAL 
ERIC 
ERIC 
ER IC 
RATO 
CI AL 
UE 
NOT 
OPER 



IELO ADDRESS 

ODRESS 

DDRESS FROM PREVIOUS 

LITERAL 

ONE 
ZERO 
RS 



ATORS 



DES 
ST A 

STA 



CRIPTOR 

CK 

CK AND tPDATE 

NEOUS OPERATORS 



NEXT 
NEXT 
NOT 
NPIT 



OR 
TOK 



PREVIOUS 
EN 



ITEM 



3-122 NTKN 

3-77 ONE 

3-17 OR 

3-164 OVERLAY 

3-164 OVLY 

3-167 PAOR 

1-11 PAGED ARRAY DESCRIPTORS 

3-167 PARITY ADDRESS 

3-168 PRFL 

3-87 PROCEDURE OPERATORS 

3-168 PROFILE 

3-165 ROCS 

3-12 ROIV 

3-124 RDL'C 

3-165 REAO CASSETTE 

3-124 REDUCE 

3-78 REFER 

3-78 REFR 

3-169 REIN 

3-169 REINSTATE 

1-1 RELATED PUBLICATIONS 

3-1 RELATIONAL OPERATORS 

3-106 RETURN 

3-105 RETURN FORMAL CHECK 

3-12 REVERSE ARITHMETICS 

3-12 RMOD 

3-12 RSU8 

3-105 RTNC 

3-108 RTRN 

3-170 SAVE 

3-113 SEARCH 

3-127 SEARCH 

3-137 SEARCH 

3-134 SEARCH 

3-127 SLL 

3-29 SNDL 

3-31 SNDR 

3-130 SORT 

3-132 SORT 

3-138 SORT 

3-141 SORT 

3-130 SSCH 

3-132 SSD 

3-134 SSL 

3-137 SSS 

3-138 SSWP 

3-22 SSI 

3-24 SS2 

3-26 SS3 

3-81 STACK 

3-33 STOO 

3-33 STORE 



STATE 
I SCAN 
LINKED 
SDL STACKS 
SERIAL LIST 



OPERATORS 
LIST 



SEARCH 
STEP DOWN 
SWAP 
UN8L0CK 



OPERATORS 



DESTRUCTIVE. 





ALPHABETIC INDEX 


3-29 


STORE NON-DESTRUCTIVE, DELETE LEFT 


3-31 


STORE NON-DESTRUCTIVE, DELETE RIGHT 


3-28 


STORE OPERATORS 


3-21 


STRING CONCATENATION 


3-20 


STRING OPERATORS 


3-5 


SUB 


3-26 


SUB-STRING* THREE PARAMETERS 


3-24 


SUB-STRING, TWO PARAMETERS 


3-22 


SUBSTRING, ONE PARAMETER 


3-147 


SUBT 


3- 1 7 C 


SVST 


3-171 


SKAP 


1-4 


THE BASE-LIMIT AREA 


3-139 


THREAD VECTOR 


3-173 


TRANSFER MESSAGE 


3-142 


TRANSLATE 


3-139 


TVEC 


3-141 


U3LK 


3rlH 


UNCC 


3-UC 


UNDO 


3-111 


UNDO CONDITIONAL 


1-20 


USE OF THE EVALUATION STACK 


3-79 


VALUE DESCRIPTOR 


3-79 


VDSC 


3-14 


XADD 


3-86 


XCH 


3-14 


XDIV 


3-173 


XFRM 


3-142 


XLAT 


3-14 


XMOD 


3-14 


XMUL 


3-14 


XSUB 


3-112 


XTEI 


3-eo 


20T 



